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

Package: IHS Changes To Pharmacy

Routine: APSPCP2


Information

APSPCP2 ;IHS/OHPRD/JCM - CHRONIC MED PROFILE;27-Dec-2004 07:31;PLS

Source Information

Source file <APSPCP2.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 C^%DTC  ^DIR  
Adverse Reaction Tracking 1 ^GMRADPT  
IHS Changes To Pharmacy 1 ^APSPSIG  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSPNE4  

Entry Points

Name Comments DBIA/ICR reference
CMEDX
EMPRT ;EP CALLED BY CPCK^APSPNE4+2
; NON-QUEUE PRINT MODULE
EN ;
EXIT1
GMRA
HEADER ;HEADER
Q
COPIES ;EP
GMR
PRINT1 ;
FMTO ;EP
; Get From/To date
START ;
INIT ;EP
EXIT ;
BUILD ;
GETMP ;CREATE TMP DATA - NEW MODULE 07/30/99
ENDBLD
PRINT ;
PATIENT ;
COPIESX ;
FILL ;

External References

Name Field # of Occurrence
C^%DTC FMTO+2
^%ZIS INIT+8, EMPRT+4, EMPRT+5
^%ZISC INIT+10, EXIT+1
^%ZTLOAD INIT+15
^APSPSIG PRINT1+11
^DIR PRINT+2, COPIES+4
^GMRADPT GMRA

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sorry, you cannot queue to your screen or to a slave printer.",!
  • Line Location: INIT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EMPRT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: !?60,"| | | |"
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !,RXNZ
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: ?8,PSZNAME
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: ?42,$P(TMP("PSOZCP",PSZNAME),"^",8)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: ?50,$E(LRXD,4,5),"-",$E(LRXD,6,7),"-",$E(LRXD,2,3)," "
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: "|_____"
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: "|"
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !,?10,SIG
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: !,"FILLED: "
  • Line Location: PRINT1+13
Function Call: WRITE
  • Prompt: $E(ISDZ,4,5),"-",$E(ISDZ,6,7),"-",$E(ISDZ,2,3)
  • Line Location: FILL+2
Function Call: WRITE
  • Prompt: " ",$E(^(RFZ,0),4,5),"-",$E(^(0),6,7),"-",$E(^(0),2,3)
  • Line Location: FILL+3
Function Call: WRITE
  • Prompt: !!!!,?27,"CHRONIC MEDICATION PROFILE"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?60,"DATE : ",$E(DT,4,5),"-",$E(DT,6,7),"-",$E(DT,2,3)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,?27,"SITE: ",APSPZITE
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !!,$P(^DPT(DA,0),"^",1)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?40,"CHART # ",$P(^AUPNPAT(DA,41,DUZ(2),0),"^",2)
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?70,"Page ",PSOZCP("PAGE")
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,?40,"DOB: ",$S(DOB:$E(DOB,4,5)_"-"_$E(DOB,6,7)_"-"_$E(DOB,2,3),1:"UNKNOWN")
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!,"RX# DRUG",?42,"QTY",?50,"LAST FILLED",!!
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: I1
  • Line Location: GMRA+0
Function Call: WRITE
  • Prompt: !?5
  • Condition for execution: $X+$L(AL)>75
  • Line Location: GMRA+0
Function Call: WRITE
  • Prompt: AL
  • Line Location: GMRA+0
Routine Call
  • DIR
  • Line Location:
    • PRINT+2
    • COPIES+4
Routine Call
  • %ZIS
  • Line Location:
    • INIT+8
    • EMPRT+4
    • EMPRT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" PATIENT+1
^AUPNPAT - [#9000001] HEADER+6
^DPT - [#2] HEADER+5, HEADER+8
^PS(55 - [#55] START+7, BUILD+4!
^PS(59 - [#59] EN+1
^PSDRUG - [#50] BUILD+12
^PSRX - [#52] BUILD+4, BUILD+5, BUILD+9, BUILD+12, PRINT1+7, PRINT1+13, FILL+3
^TMP("PSOZCP" EXIT1+2!, EMPRT+2*, PATIENT+5, GETMP+2*

Label References

Name Line Occurrences
BUILD START+7
COPIESX COPIES+5
EN INIT+11
ENDBLD BUILD+4
EXIT EMPRT+4, EMPRT+5, EN+3
EXIT1 INIT+5, INIT+9
FILL PRINT1+13
FMTO INIT+4, EMPRT+3
GETMP PATIENT+4
GMR HEADER+11
GMRA GMR
HEADER START+3, PRINT1+1
INIT INIT+10
PATIENT EN+2
PRINT START+10
PRINT1 PRINT+2
START PATIENT+5

Naked Globals

Name Field # of Occurrence
^( FILL+3
^("XY" PATIENT+1
^(0 BUILD+12, FILL+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS INIT+7*, EMPRT+4*
>> %ZIS("A" INIT+8*, EMPRT+4*!
AL Q!, GMRA*
>> APSP("LAST FI LL" , EXIT1+2!, BUILD+5*, BUILD+6
>> APSP("XSTAT" INIT+3*, EXIT1+2!, BUILD+9*, BUILD+10, BUILD+11
>> APSP1( INIT+6*, GETMP+2
APSPASS EXIT1+2!
APSPBD EXIT1+2!, FMTO+2*, BUILD+6
>> APSPCPP EMPRT+4*, EMPRT+5
APSPED EXIT1+2!, FMTO+2*, BUILD+6
APSPTDFN EXIT1+2!, PATIENT+4!, GETMP+1*, GETMP+2*
>> APSPZITE EN+1*, HEADER+4
DA EXIT1!, PATIENT+3*, PATIENT+5*, START+7, BUILD+4, HEADER+5, HEADER+6, HEADER+8
DFN INIT+6, EXIT1!, EMPRT+2
DIC EXIT1!
>> DIR("A" PRINT+2*, COPIES+3*
>> DIR("B" COPIES+3*
>> DIR(0 PRINT+2*, COPIES+2*
>> DIROUT PRINT+2
DIRUT COPIES+1!, COPIES+5
DOB EXIT1!, HEADER+8*, HEADER+9
DT FMTO+2, HEADER+3
DTOUT PRINT+2, COPIES+1!, COPIES+5
>> DUOUT PRINT+2
DUZ(2 HEADER+6
DX EXIT1+2!, PATIENT+1*
DY EXIT1+2!, PATIENT+1*
>> G INIT+13*
GMRA GMRA+1!
GMRAL GMRA+1!
GMRAL( GMRA
I EXIT1!, PATIENT+5*, START+7*, PRINT+2*, PRINT1+9*, Q!, GMRA*
I1 Q!, GMRA*
IO INIT+10, INIT+11, PATIENT+2
IO("Q" INIT+10!, INIT+11, EXIT1+1!, PATIENT+6!
IO(0 INIT+10, INIT+11
IOF PATIENT+5, PRINT+2, PRINT1+1
ION INIT+12, EMPRT+4
>> IOP EMPRT+5*
IOSL PRINT+2, PRINT1+1
IOST PATIENT+5, PRINT+2, PRINT1+1
ISDZ EXIT1!, FILL+1*, FILL+2
J EXIT1!, START+6*, START+7*, BUILD+4, BUILD+5, BUILD+9, BUILD+12
LRXD EXIT1!, PRINT1+7*, PRINT1+8
POP INIT+9, EXIT1+1!, EMPRT+4!, EMPRT+5
PSCNT Q!
PSDIS Q!
PSLC Q!
>> PSOPTPST GMR
>> PSOSITE EN+1
PSOZCP EXIT1+1!
PSOZCP("COPIES" INIT+2*, EN+2, PATIENT+6, COPIES+6*
PSOZCP("FLG" INIT+5, COPIES+5*
PSOZCP("I" EN+2*, PATIENT+6
PSOZCP("PAGE" START+2*, HEADER+1*, HEADER+7
>> PSOZP("FLG" COPIES+1!
>> PSOZZCP("DAYS" FMTO+2
PSZNAME EXIT1!, PRINT+1*, PRINT+2*, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+11, PRINT1+13, FILL+1
, FILL+3
RFZ EXIT1!, FILL+3*
RXNZ EXIT1!, PRINT1+2*, PRINT1+4
SC Q!
SIG EXIT1!, PRINT1+11*, PRINT1+12
TMP EXIT1!
TMP("PSOZCP" START+1!, START+10, BUILD+12*, PRINT+2, PRINT1+2, PRINT1+6, PRINT1+7, PRINT1+11, PRINT1+13, FILL+1
, FILL+3
VAROOT Q!
X EXIT1+1!, FMTO+2, PRINT1+11*, Q!
>> X1 FMTO+2*
>> X2 FMTO+2*
Y EXIT1+1!, COPIES+6, Q!
ZTDESC INIT+14*, EXIT1+1!
ZTIO INIT+12*, EXIT1+1!
ZTRTN INIT+12*, EXIT1+1!
ZTSAVE EXIT1+1!
ZTSAVE( INIT+13*
ZTSK EXIT1+1!, EMPRT+4!, PATIENT+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All