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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGPHIST

Package: Registration

Routine: DGPHIST


Information

DGPHIST ;WASH/ERC - PURPLE HEART REQUEST HISTORY ;23 AUG 00

Source Information

Source file <DGPHIST.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  
Registration 2 ^VADPT  ($$NAME,$$SITE)^VASITE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG PH HIST  

Entry Points

Name Comments DBIA/ICR reference
HEAD ; page header
EN ;Entry point
PH(DGDFN1) ; does patient PH history exist
START ;
EXIT ;
DEVICE() ;select output device
DATA ;Build line data and print
GETDFN() ;Ask the user to select patient
GETPAT(DFN) ; get patient name and ssn

External References

Name Field # of Occurrence
^%ZIS DEVICE+11
HOME^%ZIS DEVICE+22, EXIT+4
^%ZISC EXIT+4
^%ZTLOAD DEVICE+20
$$S^%ZTLOAD HEAD+2
^DIC GETDFN+8
$$GET1^DIQ DATA+10
^DIR EN+10, DATA+32, HEAD+3
^VADPT GETPAT+10
$$NAME^VASITE START+5
$$SITE^VASITE START+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is no Purple Heart history for patient "_$G(DGNAM)_"."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request "_ZTSK_" Queued!",1:"Request Cancelled!"),!
  • Line Location: DEVICE+21
Function Call: WRITE
  • Prompt: !,$G(DGDATE),?10,$G(DGIND),?15,$G(DGSTAT),?27,$G(DGREM),?55,$E($G(DGUSER),1,24)
  • Line Location: DATA+29
Function Call: WRITE
  • Prompt: !!?30,"End of Report."
  • Line Location: DATA+30
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+31
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !!,"PURPLE HEART REQUEST HISTORY REPORT",?48,DGDT,?70,"Page: ",$G(DGPAGE)
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,"STATION: "_$G(DGSTN)
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,"DIVISION: ",DGDIV
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,"_____________________________________________________________________________"
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !!,"Patient Name: "_$G(DGNAM),?55,"SSN: "_$G(DGSSN)
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------------------"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !!,"Date",?10,"PH?",?15,"Status",?27,"Remarks",?55,"Updated By"
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,"--------",?10,"---",?15,"----------",?27,"--------------------------",?55,"---------------"
  • Line Location: HEAD+15
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+22
    • EXIT+4
Routine Call
  • DIC
  • Line Location:
    • GETDFN+8
Routine Call
  • DIR
  • Line Location:
    • EN+10
    • DATA+32
    • HEAD+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HEAD+6
^DPT - [#2] PH+8, DATA+13, DATA+14

Label References

Name Line Occurrences
$$DEVICE EN+11
$$GETDFN EN+2
$$GETPAT EN+4
$$PH EN+7
DATA START+7
EXIT EN+12, START+8
HEAD DATA+11, DATA+17
START EN+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+8~, DEVICE+10*, EXIT+3!
DFN GETPAT~, GETPAT+9
DG1 DEVICE+20*, DATA+8~, DATA+12*, DATA+13*, DATA+14
DG2 DATA+8~, DATA+15*, DATA+16*, DATA+18, DATA+20, DATA+22, DATA+24, DATA+26
DGDATE DATA+6~, DATA+18*, DATA+19*, DATA+29
DGDFN EN+1~, EN+2*, EN+3, EN+4, EN+7, DATA+10, DATA+13, DATA+14
DGDFN1 PH~, PH+8
DGDIV DATA+7~, DATA+10*, HEAD+10
DGDT HEAD+1~, HEAD+6*, HEAD+8
DGDTN START+2~, START+6*
DGIND DATA+6~, DATA+20*, DATA+21*, DATA+29
DGLINE DATA+6~
DGLINE( DATA+14*, DATA+16, DATA+18, DATA+20, DATA+22, DATA+24, DATA+26
DGNAM EN+1~, EN+6*, EN+8, GETPAT+7~, GETPAT+8*, GETPAT+11*, GETPAT+13, HEAD+12
DGPAGE DATA+7~, DATA+9*, HEAD+3, HEAD+7*, HEAD+8
DGPAT EN+1~, EN+4*, EN+5, EN+6
DGQUIT DATA+7~, DATA+9*, DATA+17, HEAD+2*, HEAD+3*, HEAD+4
DGREM DATA+6~, DATA+24*, DATA+25*, DATA+28, DATA+29
DGSITE START+2~, START+3*, START+4
DGSSN EN+1~, EN+6*, GETPAT+7~, GETPAT+8*, GETPAT+12*, GETPAT+13, HEAD+12
DGSTAT DATA+6~, DATA+22*, DATA+23*, DATA+27, DATA+29
DGSTN START+2~, START+4*, START+6, HEAD+9
DGSTNUM START+2~, START+4*
DGSTTN START+2~, START+5*, START+6
DGUSER DATA+6~, DATA+26*, DATA+27*, DATA+28*, DATA+29
DIC GETDFN+6~, GETDFN+7*
DIC(0 GETDFN+7*
DIR EN+10!, DATA+32!, HEAD+3!
DIR(0 EN+10*, DATA+32*, HEAD+3*
DT START+5, HEAD+6
IO START+1
IO("Q" DEVICE+13
IOF HEAD+5
IOP DEVICE+8~
IOSL DATA+17
IOST EN+10, DATA+32, HEAD+3
OK DEVICE+8~, DEVICE+9*, DEVICE+12*, DEVICE+13, DEVICE+23*, DEVICE+24
POP DEVICE+8~, DEVICE+12, EXIT+3!
U EN+5, EN+6, GETPAT+12, PH+8, START+4, DATA+18, DATA+20, DATA+22, DATA+24, DATA+26
VADM GETPAT+7~
VADM(1 GETPAT+11
VADM(2 GETPAT+12
X GETDFN+6~
Y GETDFN+6~, GETDFN+9, HEAD+3, HEAD+6*
ZTDESC DEVICE+14~, DEVICE+16*
>> ZTQUEUED HEAD+2, EXIT+1, EXIT+2
>> ZTREQ EXIT+1*
ZTRTN DEVICE+14~, DEVICE+15*
ZTSAVE DEVICE+14~
ZTSAVE("DGDFN" DEVICE+17*
ZTSAVE("DGNAM" DEVICE+18*
ZTSAVE("DGSSN" DEVICE+19*
ZTSK DEVICE+14~, DEVICE+20, DEVICE+21
>> ZTSTOP HEAD+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All