Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMPLMGR2

Package: Problem List

Routine: GMPLMGR2


Information

GMPLMGR2 ; ISL/MKB,KER,AJB,TC - Problem List VALM Utilities cont ;11/27/12 08:33

Source Information

Source file <GMPLMGR2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Problem List 5 (BUILD,HDR)^GMPLMGR  GETPLIST^GMPLMGR1  (DEVICE,PRT,VAF)^GMPLPRNT  ($$CODESTS,$$EXTDT,$$MSG,$$PROBTEXT,KILL,WRAP)^GMPLX  ($$NAME,$$VIEW)^GMPLX1  
DRG Grouper 2 ($$CSI,$$SAB)^ICDEX  $$ICDDATA^ICDXCODE  
Kernel 1 EN^XQORM  
List Manager 1 ($$SETFLD,CLEAR)^VALM1  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Problem List 6 GMPL CODE LIST  GMPL DATA ENTRY  GMPL PROBLEM LIST  GMPL VIEW  GMPLMGR  GMPLMGR1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ENVIEW ; Entry Action to Display Appropriate View Menu
HELP ; Help Code
SHOW ; Show Current View of List
AUTO ; Print Problem List when Exiting Patient?
; Called from EXIT,NEWPAT^GMPLMGR1
BLDPROB(IFN) ; Build Line for Problem in List
; Input INF Pointer to Problem file 9000011
; Expects GMPCOUNT
EXVIEW ; Exit Action to Rebuild List w/New View
EXIT ; Exit Code
AUTQ ; Quit Auto-Print

External References

Name Field # of Occurrence
^DIR AUTO+6
BUILD^GMPLMGR EXVIEW+3
HDR^GMPLMGR EXVIEW+3
GETPLIST^GMPLMGR1 EXVIEW+2
DEVICE^GMPLPRNT AUTO+7
PRT^GMPLPRNT AUTO+8
VAF^GMPLPRNT AUTO+7
$$CODESTS^GMPLX BLDPROB+16
$$EXTDT^GMPLX BLDPROB+10, BLDPROB+11
$$MSG^GMPLX HELP+9, EXVIEW+4
$$PROBTEXT^GMPLX BLDPROB+9
KILL^GMPLX AUTQ+1
WRAP^GMPLX BLDPROB+13
$$NAME^GMPLX1 SHOW+6
$$VIEW^GMPLX1 SHOW+5
$$CSI^ICDEX BLDPROB+5
$$SAB^ICDEX BLDPROB+5
$$ICDDATA^ICDXCODE BLDPROB+6
$$SETFLD^VALM1 BLDPROB+14, BLDPROB+17, BLDPROB+18, BLDPROB+19, BLDPROB+21, BLDPROB+22, BLDPROB+25, BLDPROB+28, BLDPROB+29, BLDPROB+33
CLEAR^VALM1 AUTO+8
EN^XQORM ENVIEW+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?4,"You may take a variety of actions from this prompt. To update"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?4,"the problem list select from Add, Remove, Edit, Inactivate,"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?4,"and Enter Comment; you will then be prompted for the problem"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?4,"number. To see all of this patient's problems, both active and"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?4,"inactive, select Show All Problems; select Print to print the"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !?4,"same complete list in a chartable format. To see a listing of"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !?4,"actions that facilitate navigating the list, enter '??'."
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ... "
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: $C(7),!!,">>> THIS PATIENT'S PROBLEM LIST HAS CHANGED!"
  • Line Location: AUTO+5
Function Call: WRITE
  • Prompt: !!,"CURRENT VIEW: "_$S(VIEW="S":"Inpatient, ",1:"Outpatient, ")
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: "all problems"
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: $S(GMPLVIEW("ACT")="A":"active",GMPLVIEW("ACT")="I":"inactive",1:"all")_" problems"
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: " from "_$S(GMPLVIEW("VIEW")=$$VIEW^GMPLX1(DUZ):"preferred",1:"selected")_$S(VIEW="S":" services",1:" clinics")
  • Line Location: SHOW+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($X+$L(NAME)+4>80)
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: " by "_NAME
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: !,"You may change your view of this patient's problem list by selecting one or",!,"more of the following attributes to alter:",!
  • Line Location: ENVIEW+3
Routine Call
  • DIR
  • Line Location:
    • AUTO+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] BLDPROB+4
^ORD(101 - [#101] ENVIEW+2, ENVIEW+4
^TMP("GMPL" BLDPROB+30*, BLDPROB+34*, EXIT+2!
^TMP("GMPLIDX" BLDPROB+31*, EXIT+2!

Label References

Name Line Occurrences
AUTO EXIT+1
AUTQ AUTO+7
SHOW ENVIEW+1

Naked Globals

Name Field # of Occurrence
^(1 BLDPROB+4
^(20 ENVIEW+4
^(800 BLDPROB+4
^(802 BLDPROB+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUPNSEX EXIT+4!
DIR AUTO+2~
DIR("?" AUTO+4*
DIR("A" AUTO+3*
DIR("B" AUTO+3*
DIR(0 AUTO+3*
DT BLDPROB+16
DTIME HELP+8
DTOUT AUTO+2~, AUTO+6
DUOUT AUTO+2~, AUTO+6
DUZ SHOW+5
GMPAGTOR EXIT+4!
GMPARAM EXIT+4!
GMPARAM("PRT" EXIT+1, AUTO+2
GMPCLIN EXIT+4!
GMPCOUNT BLDPROB+4, BLDPROB+12*, BLDPROB+14, BLDPROB+31, EXIT+4!
GMPCSYS BLDPROB+3~, BLDPROB+5*, BLDPROB+6
GMPDFN EXIT+4!
GMPDT BLDPROB+3~, BLDPROB+5*, BLDPROB+6
GMPGULF EXIT+4!
GMPION EXIT+4!
GMPL0 BLDPROB+3~, BLDPROB+4*, BLDPROB+5, BLDPROB+6, BLDPROB+7, BLDPROB+9
GMPL1 BLDPROB+3~, BLDPROB+4*, BLDPROB+7, BLDPROB+8, BLDPROB+11
GMPL800 BLDPROB+3~, BLDPROB+4*, BLDPROB+6
GMPL802 BLDPROB+3~, BLDPROB+4*, BLDPROB+5
GMPLIST EXIT+4!, EXVIEW+2, EXVIEW+3
GMPLUSER EXIT+4!
GMPLVIEW EXIT+4!, EXVIEW+2
GMPLVIEW("ACT" SHOW+3, SHOW+4
GMPLVIEW("PROV" SHOW+3, SHOW+6
GMPLVIEW("VIEW" SHOW+1, SHOW+5, ENVIEW+1
GMPLX ENVIEW+1~*, ENVIEW+4*
GMPQUIT AUTO+6*, AUTO+7, EXVIEW+1, EXVIEW+4!
GMPREBLD EXVIEW+1, EXVIEW+4!
GMPRINT EXIT+1, EXIT+4!, AUTO+2
GMPROV EXIT+4!
GMPSC EXIT+4!
GMPTOTAL EXIT+4!, EXVIEW+2
GMPVA EXIT+4!
GMPVAMC EXIT+4!
I BLDPROB+3~, BLDPROB+32*, BLDPROB+33
ICD BLDPROB+3~, BLDPROB+6*, BLDPROB+22
IFN BLDPROB~, BLDPROB+4, BLDPROB+9, BLDPROB+16, BLDPROB+31
LINE BLDPROB+3~, BLDPROB+14*, BLDPROB+17*, BLDPROB+18*, BLDPROB+19*, BLDPROB+21*, BLDPROB+22*, BLDPROB+25*, BLDPROB+28*, BLDPROB+29*
, BLDPROB+30, BLDPROB+33*, BLDPROB+34
NAME SHOW+1~, SHOW+6*
NUM SHOW+1~*, SHOW+3, SHOW+5
ONSET BLDPROB+3~, BLDPROB+9*, BLDPROB+10
PROBLEM BLDPROB+3~, BLDPROB+8*, BLDPROB+9*, BLDPROB+10*, BLDPROB+13
RESOLVED BLDPROB+3~, BLDPROB+11*, BLDPROB+29
SC BLDPROB+3~, BLDPROB+7*, BLDPROB+23, BLDPROB+24
SCTC BLDPROB+3~, BLDPROB+6*
SP BLDPROB+3~, BLDPROB+7*, BLDPROB+26, BLDPROB+27
STATUS BLDPROB+3~, BLDPROB+7*, BLDPROB+17, BLDPROB+18, BLDPROB+19
STR BLDPROB+3~, BLDPROB+24*, BLDPROB+25, BLDPROB+27*, BLDPROB+28
TEXT BLDPROB+3~, BLDPROB+13, BLDPROB+32
TEXT( BLDPROB+33
TEXT(1 BLDPROB+21
U BLDPROB+5, BLDPROB+6, BLDPROB+7, BLDPROB+8, BLDPROB+9, BLDPROB+11, BLDPROB+27, BLDPROB+31, ENVIEW+4
VALMBCK HELP+9*, EXIT+4!, EXVIEW+1*, EXVIEW+2*
>> VALMBG EXVIEW+2*
>> VALMCC HELP+9, EXVIEW+1
VALMCNT BLDPROB+30*, BLDPROB+31, BLDPROB+34*, EXIT+4!
VALMHDR EXIT+4!
VALMSG HELP+9*, EXIT+4!, EXVIEW+4*
VIEW SHOW+1~*, SHOW+2, SHOW+5
X HELP+1~, HELP+8*, AUTO+2~, ENVIEW+1~*, ENVIEW+2
XQORM ENVIEW+1~, ENVIEW+2*
XQORM("KEY" EXIT+3!
XQORM("XLATE" EXIT+3!
XQORM(0 ENVIEW+2*
Y AUTO+2~, AUTO+7, ENVIEW+1~
Y( ENVIEW+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All