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

Package: Mental Health

Routine: YSDX3R1


Information

YSDX3R1 ;SLC/DJP/LJA - Print of DXLS History for Mental Health Med Rec ;10 May 2013 4:05 PM

Source Information

Source file <YSDX3R1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
Mental Health 3 CK^YSDX3RU  (ENFT,ENHD)^YSFORM  ^YSLRP  
VA FileMan 3 DD^%DT  ^DIWP  ^DIWW  
DRG Grouper 2 $$SINFO^ICDEX  $$ICDDATA^ICDXCODE  

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

Package Total Caller Graph
Mental Health 1 YSDIAGP-DXLS  

Entry Points

Name Comments DBIA/ICR reference
ENTRY ;
DEVICE ;
ENPR ;Entry to core of print program.
PR ;
END ;
DXLS ;
AUTH ;
COMMENT ;
FINISH ;

External References

Name Field # of Occurrence
DD^%DT DXLS+7
^%ZIS DEVICE+2
^%ZISC END+7
^%ZTLOAD DEVICE+3
KILL^%ZTLOAD END+7
^DIWP COMMENT+5
^DIWW COMMENT+6
$$SINFO^ICDEX DXLS+27
$$ICDDATA^ICDXCODE DXLS+24
CK^YSDX3RU DXLS+3
ENFT^YSFORM PR+9
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("DXLS HISTORY")\2," DXLS HISTORY ",!!
  • Line Location: ENTRY+2
Function Call: WRITE
  • Prompt: !!?10,"No history on file for ",YSNM
  • Line Location: ENTRY+4
Function Call: WRITE
  • Prompt: !!,"Prinicipal Diagnosis (DXLS): "
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: !!?3,YSDXCSTX,?12,YSDXLS_" "_$E(YSDXLSN,1,56)
  • Line Location: AUTH+8
Function Call: WRITE
  • Prompt: !?9,"Comments: ",!
  • Line Location: COMMENT+3
Function Call: WRITE
  • Prompt: !?9,"Entered by: ",YSAUTH,!?9,"Dated ",YSDXLSD,!
  • Line Location: COMMENT+7
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(3.1 - [#3.1] AUTH+5
^UTILITY($J COMMENT+4!, COMMENT+6!
^VA(200 - [#200] AUTH+3, AUTH+4
^YSD(627.7 - [#627.7] DXLS+18
^YSD(627.8 - [#627.8] ENTRY+4, PR+5, PR+7, DXLS+7, DXLS+31, DXLS+32, DXLS+34, AUTH+2, COMMENT+2, COMMENT+5

Label References

Name Line Occurrences
DXLS PR+7
END ENTRY+3, ENTRY+4
FINISH PR+8

Naked Globals

Name Field # of Occurrence
^( COMMENT+5
^(0 DXLS+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+2*
A END+2!
A1 END+2!
A2 END+2!
A3 END+2!
A4 END+2!
A5 END+2!
A6 END+2!
A7 END+2!
A8 END+2!
DIWF END+6!, COMMENT+4*
DIWL END+6!, COMMENT+4*
DIWR END+6!, COMMENT+4*
G END+2!
G1 END+2!
G11 END+2!
G2 END+2!
G3 END+2!
G4 END+2!
G5 END+2!
G6 END+2!
IO PR+2
IO("Q" DEVICE+3
IOF ENTRY+2
IOM ENTRY+2
IOP DEVICE+2!
IOSL DXLS+3
IOST PR+2
J PR+5*, PR+7, END+2!
J1 PR+6*, PR+7*, DXLS+7, DXLS+31, DXLS+32, DXLS+34, AUTH+2, COMMENT+2, COMMENT+5, FINISH+2!
J2 DXLS+7*, DXLS+10, FINISH+2!
J3 DXLS+10*, DXLS+17, DXLS+23, FINISH+2!
J4 DXLS+10*, DXLS+18, DXLS+24, FINISH+2!
J5 END+2!, DXLS+10*, DXLS+13, FINISH+2!
J50 END+2!, DXLS+13*, DXLS+19, DXLS+20
J6 AUTH+2*, AUTH+3, AUTH+4, FINISH+2!
>> J7 AUTH+3*, AUTH+6
>> J8 AUTH+4*, AUTH+5*, AUTH+6
K END+2!, COMMENT+5*, COMMENT+6
L END+2!
L1 END+2!
L10 END+3!
L11 END+3!
L2 END+3!
L3 END+3!
L4 END+3!
L5 END+3!
L6 END+3!
L7 END+3!
L8 END+3!
L9 END+3!
M1 DXLS+34*, DXLS+35, DXLS+36, DXLS+37!
>> POP DEVICE+2
U DXLS+7, DXLS+19, DXLS+20, DXLS+25, DXLS+26, DXLS+27, DXLS+32, DXLS+36, AUTH+2, AUTH+3
AUTH+4, AUTH+5
W END+3!
>> X COMMENT+5*
>> Y DXLS+7*
>> Y1 PR+2*
YSAGE END+6!
YSAUTH END+4!, AUTH+6*, COMMENT+7
YSCD END+4!
YSCON END+5!
YSCOND END+4!
YSDFN ENTRY+3, ENTRY+4, PR+5, PR+7, END+4!
YSDOB END+4!
YSDTM END+4!
YSDUZ END+6!
YSDXCSTX DXLS+15*, DXLS+20*, DXLS+27*, DXLS+28*, AUTH+8, FINISH+2!
YSDXDATA DXLS+6~, DXLS+24*, DXLS+25, DXLS+26, DXLS+27
YSDXDT END+4!
YSDXI DXLS+2~, DXLS+33*, DXLS+34, DXLS+36, AUTH+9*
YSDXLS DXLS+19*, DXLS+26*, AUTH+7, AUTH+8, FINISH+2!
YSDXLSD DXLS+7*, COMMENT+7, FINISH+2!
YSDXLSD2 DXLS+6~, DXLS+7*, DXLS+24
YSDXLSN DXLS+18*, DXLS+25*, AUTH+8, FINISH+2!
YSDXN END+3!
YSDXNN END+3!
YSDXS END+4!
YSFHDR ENPR+2*, END+4!
YSFTR END+5!
YSLC END+5!
YSLFT PR+2*, PR+4*, PR+5, PR+7, END+5!
YSML END+3!, DXLS+32*, DXLS+33, AUTH+9
YSMOD END+3!, AUTH+9, FINISH+2!
YSMOD( DXLS+36*, AUTH+9
YSNM ENTRY+4, END+5!
>> YSNOFORM PR+2
YSPP ENPR+2*, PR+9, END+5!
YSPS END+5!
YSQT END+6!
YSSEX END+6!
YSSL PR+2*, END+5!, DXLS+3
YSSSN END+5!
YSSTOP END+5!
YST PR+2*, PR+9, END+6!
YSTM END+6!
>> YSTOUT ENTRY+3, DXLS+3
>> YSUOUT ENTRY+3, DXLS+3
>> ZTDESC DEVICE+3*
>> ZTRTN DEVICE+3*
>> ZTSAVE("A" DEVICE+3*
>> ZTSAVE("YS*" DEVICE+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All