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

Package: IHS Changes To Pharmacy

Routine: APSPDSC1


Information

APSPDSC1 ; IHS/DSD/ENM - PRINT MEDICATION DISCHARGE FORM ;29-Jan-2004 08:56;PLS

Source Information

Source file <APSPDSC1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Changes To Pharmacy 2 EOJ^APSPDSC  EP^APSPGMR  
Kernel 1 ^%ZISC  
Outpatient Pharmacy 1 SIG^PSOHELP  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSPDSC  

Entry Points

Name Comments DBIA/ICR reference
HEADER ;
MEDS ;
EOJ ;
WARN3 ;IHS/DSD/ENM 06/10/97 ENM MODIFIED WARN2 MODULE
WARN2 ;IHS/DSD/ENM V5.06 WARN2 MODULE
RX ;
START ;
EMW
WARNING ;
SIG ;
WARN3X ;IHS/DSD/ENM END OF ENM WARN2 MODULE
SIGX ;
TRAILER ;
WARN2X ;

External References

Name Field # of Occurrence
^%ZISC APSPDSC1+7
EOJ^APSPDSC EOJ+4
EP^APSPGMR HEADER+4
^DIR SIG+4, SIG+11, EMW+1, WARN2+4
SIG^PSOHELP SIG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: CONDITIONAL
  • Line Location: APSPDSC1+2
Function Call: WRITE
  • Prompt: ?(IOM-20),"Date : ",APSPDSC("DATE")
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?(IOM-20),"Page: ",APSPAGE
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !?(IOM\2-12),"MEDICATION INSTRUCTIONS",!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: APSS
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: SIG+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SIG+4
Function Call: WRITE
  • Prompt: !,APSS
  • Line Location: SIG+5
Function Call: WRITE
  • Prompt: !!!,APSDNAME," - "
  • Line Location: SIG+6
Function Call: WRITE
  • Prompt: ?30,$E(INS1,1,(IOM-1))
  • Line Location: SIG+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SIG+8
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: SIG+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SIG+11
Function Call: WRITE
  • Prompt: "-"
  • Condition for execution: $E(INS1,(APS2P+(IOM-31)))]" "
  • Line Location: SIG+12
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: EMW+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EMW+1
Function Call: WRITE
  • Prompt: !!?2,$E(APSPK,1,(IOM-1))
  • Line Location: EMW+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EMW+3
Function Call: WRITE
  • Prompt: !,$E(APSPK,APS2P+1,(APS2P+(IOM-1)))
  • Line Location: EMW+5
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: WARN2+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WARN2+4
Function Call: WRITE
  • Prompt: !!?10,$E(APSPK,1,(IOM-12))
  • Line Location: WARN2+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WARN2+6
Function Call: WRITE
  • Prompt: !?10,$E(APSPK,APS2P+1,(APS2P+(IOM-12)))
  • Line Location: WARN2+8
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: TRAILER+1
Function Call: WRITE
  • Prompt: !,APSS
  • Line Location: TRAILER+2
Function Call: WRITE
  • Prompt: !!!,"ADDITIONAL COMMENTS:",!
  • Line Location: TRAILER+3
Function Call: WRITE
  • Prompt: !!,APSS
  • Line Location: TRAILER+4
Function Call: WRITE
  • Prompt: !!?(IOM-28)
  • Line Location: TRAILER+5
Function Call: WRITE
  • Prompt: APSS
  • Line Location: TRAILER+5
Function Call: WRITE
  • Prompt: !?(IOM-20),"PHARMACIST"
  • Line Location: TRAILER+6
Routine Call
  • DIR
  • Line Location:
    • SIG+4
    • SIG+11
    • EMW+1
    • WARN2+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" START+1
^DIC(54 WARN3+2, WARN2+2
^PSDRUG - [#50] RX+2
^PSRX - [#52] RX+1, RX+3, RX+4

Label References

Name Line Occurrences
EMW WARN3+2
EOJ APSPDSC1+8
HEADER START+3, SIG+3, SIG+10, EMW, WARN2+3, TRAILER+1
MEDS START+4
RX MEDS+2
SIG RX+8
SIGX SIG+4, SIG+11
START APSPDSC1+6
TRAILER START+5
WARN2 WARNING+4
WARN2X EMW+1, WARN2+4
WARNING RX+8

Naked Globals

Name Field # of Occurrence
^("XY" START+1
^(0 RX+1, RX+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APS2P SIG+9*, SIG+12*, EMW+4*, EMW+5*, WARN2+7*, WARN2+8*, EOJ+1!
APSCNT MEDS+1*, MEDS+2*, EOJ+1!
APSCNT2 WARNING+3*, WARNING+4*, EOJ+1!
APSDNAME RX+7*, SIG+6, EOJ+1!
APSDRUG RX+2*, RX+6, RX+7, WARNING+1, WARNING+2, EOJ+1!
APSI TRAILER+4*, EOJ+1!
APSPAGE START+2*, HEADER+3, HEADER+4, HEADER+9*, EOJ+1!
APSPDSC EOJ+1!
APSPDSC("COPIES" APSPDSC1+6, START+7*
APSPDSC("DATE" HEADER+2
APSPDSC("FAC" HEADER+6
APSPDSC("NAME" HEADER+1
>> APSPDSC1("QUI T FLG" , SIG+4*, SIG+11*, EMW+1*, WARN2+4*, EOJ+1!
APSPJ WARN3+1*, WARN3+2*, WARN2+1*, WARN2+2*, EOJ+2!
APSPK WARN3+1*, WARN3+2*, EMW, EMW+2, EMW+3, EMW+5, WARN2+1*, WARN2+2*, WARN2+3, WARN2+5
, WARN2+6, WARN2+8, EOJ+2!
APSRX MEDS+1*, MEDS+2*, RX+1, RX+3, RX+4, EOJ+1!
APSRX0 RX+1*, RX+2, EOJ+2!
APSS HEADER+8!*, SIG+5, TRAILER+2, TRAILER+4, TRAILER+5*, EOJ+2!
APSSIG RX+3*, RX+4*, RX+5, RX+6, SIG+2, EOJ+2!
APSWL WARNING+3*, WARNING+4*, WARN3+2, WARN2+2, EOJ+2!
APSWLS WARNING+2*, WARNING+4, EOJ+2!
APSX MEDS+2, EOJ+2!
DIR SIG+4!, SIG+11!, EMW+1!, WARN2+4!
DIR(0 SIG+4*, SIG+11*, EMW+1*, WARN2+4*
DX START+1*, EOJ+2!
DY START+1*, EOJ+2!
I APSPDSC1+6*, EOJ+2!
INS1 SIG+1~, SIG+3, SIG+7, SIG+8, SIG+12
IO APSPDSC1+5, SIG+4, SIG+11, EMW+1, WARN2+4
IO(0 SIG+4, SIG+11, EMW+1, WARN2+4
IOF START+6, SIG+3, SIG+4, SIG+10, SIG+11, EMW, EMW+1, WARN2+3, WARN2+4, TRAILER+1
IOM HEADER+2, HEADER+3, HEADER+6, HEADER+7, HEADER+8, SIG+3, SIG+7, SIG+8, SIG+9, SIG+12
, EMW, EMW+2, EMW+3, EMW+4, EMW+5, WARN2+3, WARN2+5, WARN2+6, WARN2+7, WARN2+8
, TRAILER+5, TRAILER+6
IOSL SIG+3, SIG+4, SIG+10, SIG+11, EMW, EMW+1, WARN2+3, WARN2+4, TRAILER+1
IOST START+5, START+6, SIG+3, SIG+4, SIG+10, SIG+11, EMW, EMW+1, WARN2+3, WARN2+4
SIG EOJ+2!
U RX+2, RX+7, WARNING+1, WARNING+2
X SIG+2*, EOJ+2!
Y SIG+4!, SIG+11!, EMW+1!, WARN2+4!
ZTDESC EOJ+3!
ZTIO EOJ+3!
ZTRTN EOJ+3!
ZTSAVE EOJ+3!
ZTSK EOJ+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All