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 - Problem List VALM Utilities cont ;08/17/12 16:55

Source Information

Source file <GMPLMGR2.m>

Call Graph

Call Graph Total: 9

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 1 $$ICDDX^ICDCODE  
Kernel 1 EN^XQORM  
Registration 1 ($$SETFLD,CLEAR)^VALM1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Problem List 2 GMPLMGR  GMPLMGR1  

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+15
$$EXTDT^GMPLX BLDPROB+9, BLDPROB+10
$$MSG^GMPLX HELP+9, EXVIEW+4
$$PROBTEXT^GMPLX BLDPROB+8
KILL^GMPLX AUTQ+1
WRAP^GMPLX BLDPROB+12
$$NAME^GMPLX1 SHOW+6
$$VIEW^GMPLX1 SHOW+5
$$ICDDX^ICDCODE BLDPROB+5
$$SETFLD^VALM1 BLDPROB+13, BLDPROB+16, BLDPROB+17, BLDPROB+18, BLDPROB+20, BLDPROB+21, BLDPROB+24, BLDPROB+27, BLDPROB+28, BLDPROB+32
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+29*, BLDPROB+33*, EXIT+2!
^TMP("GMPLIDX" BLDPROB+30*, 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

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+15
DTIME HELP+8
DTOUT AUTO+2~, AUTO+6
DUOUT AUTO+2~
DUZ SHOW+5
GMPAGTOR EXIT+4!
GMPARAM EXIT+4!
GMPARAM("PRT" EXIT+1, AUTO+2
GMPCLIN EXIT+4!
GMPCOUNT BLDPROB+4, BLDPROB+11*, BLDPROB+13, BLDPROB+30, EXIT+4!
GMPDFN EXIT+4!
GMPGULF EXIT+4!
GMPION EXIT+4!
GMPL0 BLDPROB+3~, BLDPROB+4*, BLDPROB+5, BLDPROB+6, BLDPROB+8
GMPL1 BLDPROB+3~, BLDPROB+4*, BLDPROB+6, BLDPROB+7, BLDPROB+10
GMPL800 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+31*, BLDPROB+32
ICD BLDPROB+3~, BLDPROB+5*, BLDPROB+21
IFN BLDPROB~, BLDPROB+4, BLDPROB+8, BLDPROB+15, BLDPROB+30
LINE BLDPROB+3~, BLDPROB+13*, BLDPROB+16*, BLDPROB+17*, BLDPROB+18*, BLDPROB+20*, BLDPROB+21*, BLDPROB+24*, BLDPROB+27*, BLDPROB+28*
, BLDPROB+29, BLDPROB+32*, BLDPROB+33
NAME SHOW+1~, SHOW+6*
NUM SHOW+1~*, SHOW+3, SHOW+5
ONSET BLDPROB+3~, BLDPROB+8*, BLDPROB+9
PROBLEM BLDPROB+3~, BLDPROB+7*, BLDPROB+8*, BLDPROB+9*, BLDPROB+12
RESOLVED BLDPROB+3~, BLDPROB+10*, BLDPROB+28
SC BLDPROB+3~, BLDPROB+6*, BLDPROB+22, BLDPROB+23
SCTC BLDPROB+3~, BLDPROB+5*
SP BLDPROB+3~, BLDPROB+6*, BLDPROB+25, BLDPROB+26
STATUS BLDPROB+3~, BLDPROB+6*, BLDPROB+16, BLDPROB+17, BLDPROB+18
STR BLDPROB+3~, BLDPROB+23*, BLDPROB+24, BLDPROB+26*, BLDPROB+27
TEXT BLDPROB+3~, BLDPROB+12, BLDPROB+31
TEXT( BLDPROB+32
TEXT(1 BLDPROB+20
U BLDPROB+5, BLDPROB+6, BLDPROB+7, BLDPROB+8, BLDPROB+10, BLDPROB+26, BLDPROB+30, ENVIEW+4
VALMBCK HELP+9*, EXIT+4!, EXVIEW+1*, EXVIEW+2*
>> VALMBG EXVIEW+2*
>> VALMCC HELP+9, EXVIEW+1
VALMCNT BLDPROB+29*, BLDPROB+30, BLDPROB+33*, 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