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 |  Local Variables  | All
Print Page as PDF
Routine: YSDX3R

Package: Mental Health

Routine: YSDX3R


Information

YSDX3R ;SLC/DJP - Print of Diagnosis for the Mental Health Medical Record ;12/13/93 16:02

Source Information

Source file <YSDX3R.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Mental Health 4 (CHR,DX,FINISH)^YSDX3RU  (AX4,AX5,DXLS)^YSDX3RUA  ENHD^YSFORM  ^YSLRP  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 KVAR^VADPT  
VA FileMan 1 YN^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Mental Health 2 YSDIAGP-DX  YSDX3RU  

Entry Points

Name Comments DBIA/ICR reference
ENTRY ;
QUES1 ;
QUES2 ;
DEVICE ;
ENPR ;Entry to core of print program.
PR ; Called from YSDX3RU
END ;
EOR ;YSDX3R - Print Diagnosis for Medical Record ;12/6/90 11:19

External References

Name Field # of Occurrence
^%ZIS DEVICE+2
^%ZISC END+3
^%ZTLOAD DEVICE+3
YN^DICN QUES2+3
KVAR^VADPT END+3
CHR^YSDX3RU PR+3
DX^YSDX3RU PR+3
FINISH^YSDX3RU PR+5
AX4^YSDX3RUA PR+4
AX5^YSDX3RUA PR+4
DXLS^YSDX3RUA PR+3
ENHD^YSFORM PR+2
^YSLRP ENTRY+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENTRY+2
Function Call: WRITE
  • Prompt: !!?IOM-$L("PRINT OF DIAGNOSIS")\2,"PRINT OF DIAGNOSIS",!!
  • Line Location: ENTRY+2
Function Call: WRITE
  • Prompt: !!?10,"No diagnosis on file for ",YSNM
  • Line Location: ENTRY+4
Function Call: READ
  • Variable: A
  • Timeout: DTIME
  • Line Location: QUES1+1
Function Call: WRITE
  • Prompt: !!,"You may list diagnoses sequentially or by date.",!!
  • Line Location: QUES1+2
Function Call: WRITE
  • Prompt: " ?",!
  • Line Location: QUES1+3
Function Call: WRITE
  • Prompt: !,"LIST ONLY ACTIVE DIAGNOSIS"
  • Line Location: QUES2+2
Function Call: WRITE
  • Prompt: !!,"You may list only active diagnoses or both active and inactive diagnoses.",!
  • Line Location: QUES2+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YSD(627.8 - [#627.8] ENTRY+4

Label References

Name Line Occurrences
END ENTRY+3, ENTRY+4, QUES1+1, QUES2+4, DEVICE+2, DEVICE+3, PR+3, PR+4
QUES1 QUES1+2, QUES1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QUES2+2*, QUES2+3, QUES2+4
>> %ZIS DEVICE+2*
A QUES1+1*, QUES1+2*, QUES1+3, PR+3, END+4!
A1 END+4!
A2 END+4!
A3 END+4!
A4 END+4!
A5 END+4!
A6 END+4!
A7 END+4!
A8 END+4!
A9 END+4!
DIWF END+10!
DIWL END+10!
DIWR END+10!
DTIME QUES1+1
G END+4!
G1 END+4!
G10 END+5!
G11 END+5!
G2 END+4!
G3 END+4!
G4 END+4!
G5 END+4!
G6 END+4!
G7 END+4!
G8 END+4!
G9 END+4!
IO PR+2
>> IO("Q" DEVICE+3
IOF ENTRY+2
IOM ENTRY+2
IOP DEVICE+2!
IOST PR+2
J END+5!
K END+5!
L END+5!
L1 END+5!
L10 END+5!
L11 END+5!
L2 END+5!
L3 END+5!
L4 END+5!
L5 END+5!
L6 END+5!
L7 END+5!
L8 END+5!
L9 END+5!
M END+5!
>> POP DEVICE+2
SUBSET END+7!
TOTSET END+7!
W END+5!
X END+5!
Y END+5!
Y1 PR+2*, END+5!
YSAGE END+9!
YSAUTH END+7!
YSAX4 END+6!
YSCD END+7!
YSCON PR+5*, END+10!
YSCOND END+7!
YSD3FLG END+6!
YSDFN ENTRY+3, ENTRY+4, END+7!
YSDIFLG END+6!
YSDOB END+7!
YSDTM END+7!
YSDUZ END+9!
YSDXDT END+6!
YSDXN END+6!
YSDXNN END+6!
YSDXS END+7!
YSFFS PR+5, END+10!
YSFHDR ENPR+2*, END+8!
YSFHDR(1 ENPR+2*
YSFHDR(2 ENPR+2*
YSFHDR(3 ENPR+2*
YSFTR END+8!
YSGAF END+8!
YSLC END+8!
YSLCN END+10!
YSLFT PR+2*, END+8!
YSML END+6!
YSMOD END+6!
YSNM ENTRY+4, END+8!
>> YSNOFORM PR+2
YSPP ENPR+2*, END+8!
YSPS END+8!
YSQT END+9!
YSSEX END+9!
YSSL PR+2*, END+8!
YSSSN END+8!
YSSTOP END+9!
YST PR+2*, END+9!
YSTM END+9!
YSTOP1 END+9!
YSTOP2 END+9!
>> YSTOUT ENTRY+3, QUES1+1*, PR+3, PR+4
YSTY QUES2+4*, QUES2+5*, END+9!
>> YSUOUT ENTRY+3, QUES1+1*, PR+3, PR+4
Z END+10!
Z1 END+10!
>> ZTDESC DEVICE+3*
>> ZTREQ END+2*
>> ZTRTN DEVICE+3*
>> ZTSAVE("A" DEVICE+3*
>> ZTSAVE("YS*" DEVICE+3*
>> ZTSK END+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All