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: GMPLPRNT

Package: Problem List

Routine: GMPLPRNT


Information

GMPLPRNT ; SLC/MKB,KER,TC -- Problem List prints/displays; 04/15/2002 ;06/08/12 16:13

Source Information

Source file <GMPLPRNT.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  
Problem List 3 GETPLIST^GMPLMGR1  ($$EXTDT,$$MSG,$$PROBTEXT,KILL,WRAP)^GMPLX  SCS^GMPLX1  
Registration 3 OERR^VADPT  CLEAR^VALM1  $$SITE^VASITE  
DRG Grouper 1 $$ICDDX^ICDCODE  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Problem List 2 GMPLMGR2  GMPLUTL2  

Entry Points

Name Comments DBIA/ICR reference
NOTES(IFN) ; Place Comments in NOTES array
PROB(DA,NUM) ; Get Problem Text Line
EN ; Print/Display (Main)
HDR ; Header Code
ENQ ; Quit Print/Display
VAF ; Build Chart Copy
RETURN() ; End of page
LIST ; Build Current View
EN1 ; Print View
FTR ; Footer Code
PR1 ; Write Problem Text Line
PRT ; Body of Problem List
DEVICE ; Get Device
DQ ; Quit Device

External References

Name Field # of Occurrence
^%ZIS DEVICE+1
HOME^%ZIS DEVICE+7
^%ZISC PRT+7
^%ZTLOAD DEVICE+7
^DIR EN+9, RETURN+2
GETPLIST^GMPLMGR1 VAF+4
$$EXTDT^GMPLX PR1+1, PR1+3, PR1+4, PR1+7
$$MSG^GMPLX ENQ+1
$$PROBTEXT^GMPLX PROB+6
KILL^GMPLX ENQ+1
WRAP^GMPLX PROB+15
SCS^GMPLX1 PROB+4
$$ICDDX^ICDCODE PROB+8, PROB+12
OERR^VADPT FTR+5
CLEAR^VALM1 EN1+4
$$SITE^VASITE FTR+3
$$FMTE^XLFDT FTR+12
$$NOW^XLFDT FTR+12
$$REPEAT^XLFSTR HDR+2, HDR+7, HDR+10, FTR+10, FTR+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"No problems found.",!,$C(7)
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"One moment, please ..."
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: $C(13),$$REPEAT^XLFSTR("-",79),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "** NOT for "
  • Condition for execution: $D(GMPLCURR)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Medical Record"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " **"
  • Condition for execution: $D(GMPLCURR)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $P(GMPDFN,U,2)_" ("_$P(GMPDFN,U,3)_")"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?41,"| "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "PARTIAL "
  • Condition for execution: $D(GMPLCURR)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "PROBLEM LIST",?(79-$L(PAGE)),PAGE,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",79),!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !," Date",?63,"Date of Date"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !," Recorded Problems",?64,"Onset Resolved"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: FTR+2
Function Call: WRITE
  • Prompt: !,$S($D(GMPLFLAG):"$ = Requires verification by provider",1:"")
  • Line Location: FTR+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: FTR+10
Function Call: WRITE
  • Prompt: !,$P(GMPDFN,U,2),?(79-$L(SITE)\2),SITE
  • Line Location: FTR+11
Function Call: WRITE
  • Prompt: ?(79-$L(DATE)),DATE
  • Line Location: FTR+14
Function Call: WRITE
  • Prompt: !,VA("PID"),?(79-$L(LOC)\2),LOC,?(79-$L(FORM)),FORM
  • Line Location: FTR+15
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),@IOF
  • Line Location: FTR+16
Function Call: WRITE
  • Prompt: !
  • Line Location: RETURN+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROB+19
Function Call: WRITE
  • Prompt: !!,$E(" ",1,3-$L(NUM))_NUM_". "_$J($$EXTDT^GMPLX(DATE),8)
  • Line Location: PR1+1
Function Call: WRITE
  • Prompt: ?14,"$"
  • Line Location: PR1+2
Function Call: WRITE
  • Prompt: ?15,TEXT(1),?62,$J($$EXTDT^GMPLX(ONSET),8)
  • Line Location: PR1+3
Function Call: WRITE
  • Prompt: ?71,$S(RESOLVED:$J($$EXTDT^GMPLX(RESOLVED),8),1:"unknown")
  • Line Location: PR1+4
Function Call: WRITE
  • Prompt: !?15,TEXT(J)
  • Line Location: PR1+5
Function Call: WRITE
  • Prompt: !?5,$J(X,8),?17,$P(NOTES(J),U,2)
  • Line Location: PR1+7
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+7
Routine Call
  • DIR
  • Line Location:
    • EN+9
    • RETURN+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] PROB+2, PROB+9, PROB+10, PROB+13, NOTES+2, NOTES+3, NOTES+4, NOTES+5
^AUPNPROB("AC" VAF+2
^GMPL(125.99 - [#125.99] PR1+2
^TMP("GMPLIDX" LIST+3, LIST+4

Label References

Name Line Occurrences
$$RETURN PRT+5, PROB+19
@( EN1+1
DEVICE EN1+3
DQ DEVICE+1
EN1 EN+2
ENQ EN+9, EN1+2, EN1+3
FTR PRT+5, PROB+18
HDR PRT+1, PROB+18, PROB+19
NOTES PROB+16
PROB PRT+4
PRT EN1+4

Naked Globals

Name Field # of Occurrence
^(1 PROB+2
^(803 PROB+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1*, DQ+1!
%ZIS("B" DEVICE+1*
DA PROB~, PROB+2, PROB+4, PROB+6, PROB+9, PROB+10, PROB+13, PROB+16
DATE FTR+1~, FTR+12*, FTR+13*, FTR+14, PROB+1~, PROB+3*, PROB+5*, PR1+1, PR1+6*, PR1+7*
, NOTES+1~, NOTES+6*, NOTES+7
DFN FTR+1~, FTR+5*
DIR EN+1~, RETURN+1~
DIR("?" EN+5*, EN+6*, EN+7*, EN+8*
DIR("A" EN+4*
DIR(0 EN+3*, RETURN+2*
>> DTOUT EN+9
>> DUOUT EN+9
FAC NOTES+1~, NOTES+3*, NOTES+4, NOTES+5
FORM FTR+1~, FTR+7*, FTR+8*, FTR+15
>> GMPCOUNT LIST+1
GMPDFN VAF+2, DEVICE+4, HDR+4, FTR+5, FTR+11, PRT+6!
GMPL0 PROB+1~, PROB+2*, PROB+3, PROB+5, PROB+8, PROB+12, PR1+4
GMPL1 PROB+1~, PROB+2*, PROB+3, PR1+2
GMPL803 PROB+1~, PROB+2*, PROB+7, PROB+12
GMPLCURR VAF+1!, LIST+1*, DEVICE+2, DEVICE+6, HDR+3, HDR+5, PRT+6!
GMPLFLAG FTR+9, PRT+1~, PR1+2*
GMPLPAGE HDR+1*, PRT+1~*
>> GMPLVIEW("ACT" EN+2
>> GMPLVIEW("PROV" EN+2
>> GMPLVIEW("VIEW" EN+2
GMPQUIT EN1+3, DEVICE+1*, DEVICE+7*, PRT+2, PRT+5, PRT+6!, PROB+17, PROB+20*
GMPRINT DEVICE+2!
GMPRT EN1+2, VAF+1*, VAF+4, VAF+5*, LIST+1*, LIST+5*, PRT+6!
GMPRT( LIST+5*, PRT+2, PRT+3
>> GMPVAMC NOTES+3
I LIST+1~, LIST+3*, LIST+4, LIST+5, FTR+1~, FTR+2*, RETURN+1~*, PRT+1~, PRT+2*, PRT+3
, PRT+4, PRT+5*, NOTES+1~*, NOTES+6*, NOTES+7, NOTES+8
IEN PROB+9~*, PROB+10
IFN LIST+1~, LIST+4*, LIST+5, PRT+1~, PRT+3*, PRT+4, NOTES~, NOTES+2, NOTES+3, NOTES+4
, NOTES+5
IO PRT+1
IO("Q" DEVICE+3, DQ+1!
IOF FTR+16, PROB+19
IOSL FTR+2, RETURN+1, PROB+17
IOST HDR+3, HDR+4, PRT+5, PROB+18
J PROB+1~, PR1+5*, PR1+7*
LINES PROB+1~, PROB+16*, PROB+17
LOC FTR+1~, FTR+6*, FTR+7*, FTR+15
NIFN NOTES+1~, NOTES+4*, NOTES+5
NOTE NOTES+1~, NOTES+5*, NOTES+6
NOTES PROB+1~, PROB+16, PR1+6, PR1+7, NOTES+1*, NOTES+8*
NOTES( PR1+7, NOTES+7*
NUM PROB~, PR1+1
ONSET PROB+1~, PROB+3*, PR1+3
PAGE HDR+1~*, HDR+6
POP DEVICE+1, DQ+1!
PROB PROB+1~, PROB+6*, PROB+7, PROB+8*, PROB+10*, PROB+11*, PROB+12*, PROB+13*, PROB+14*, PROB+15
RESOLVED PROB+1~, PROB+3*, PR1+4
SCS PROB+1~, PROB+4
SCS(3 PROB+4
SITE FTR+1~, FTR+3*, FTR+4*, FTR+11
SP PROB+1~, PROB+4*
TEXT PROB+1~, PROB+15, PROB+16, PR1+5, NOTES+1~, NOTES+6*, NOTES+7
TEXT( PR1+5
TEXT(1 PR1+3
TOTAL VAF+1~*, VAF+4, VAF+5
U LIST+4, DEVICE+4, HDR+4, FTR+3, FTR+6, FTR+11, PROB+3, PROB+5, PROB+8, PROB+10
, PROB+12, PR1+2, PR1+4, PR1+7, NOTES+6, NOTES+7
VA FTR+1~
VA("PID" FTR+15
VADM FTR+1~
VAIN FTR+6!
VAIN(4 FTR+6
VAIN(5 FTR+6
>> VALMBCK EN+1*, EN1+4*
>> VALMCC EN+1
>> VALMSG ENQ+1*
VIEW VAF+1~, VAF+4
VIEW("ACT" VAF+3*
VIEW("PROV" VAF+3*
VIEW("VIEW" VAF+3*
X EN+1~, RETURN+1~, PROB+1~, PR1+7*
Y EN+1~, EN+2*, EN+9, EN1+1, RETURN+1~, RETURN+3
ZTDESC DEVICE+4*, DQ+1!
>> ZTDTH DEVICE+6*
>> ZTQUEUED PRT+6
>> ZTREQ PRT+6*
ZTRTN DEVICE+4*, DQ+1!
ZTSAVE DQ+1!
ZTSAVE("GMPDFN" DEVICE+5*
ZTSAVE("GMPLCURR" DEVICE+6*
ZTSAVE("GMPRT" DEVICE+5*
ZTSAVE("GMPRT(" DEVICE+5*
ZTSAVE("GMPVAMC" DEVICE+5*
ZTSK DEVICE+7, DQ+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All