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

Package: IHS Changes To Pharmacy

Routine: APSPMED


Information

APSPMED ; IHS/DSD/ENM - PRINTS PATIENT MEDICATION PROFILE LONG OR SHORT ; [ 09/03/97 1:30 PM ]

Source Information

Source file <APSPMED.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Changes To Pharmacy 3 EP1^APSPMED1  (,HDR)^APSPMED2  ^APSPMED3  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 C^%DTC  ^DIR  
Outpatient Pharmacy 1 STAT^PSOFUNC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS View Patient Record 1 BVPRX  

Entry Points

Name Comments DBIA/ICR reference
PQ
PAUS
DRUG
DEV
Q
P ;
S
CLSS
O
DATE
EP ;
LOOP

External References

Name Field # of Occurrence
C^%DTC S+3
^%ZIS DEV
^%ZISC Q
^%ZTLOAD DEV+4
EP1^APSPMED1 EP+2
^APSPMED2 PQ
HDR^APSPMED2 O+1, O+2
^APSPMED3 PQ+2
^DIR EP+7, S+1, S+3, O+1, PAUS
STAT^PSOFUNC O+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Outpatient Pharmacy Medication Profile",!
  • Line Location: EP+1
Function Call: WRITE
  • Prompt: !?20,*7,"NO PHARMACY INFORMATION"
  • Line Location: EP+4
Function Call: WRITE
  • Prompt: !!,"PATIENT HAS ARCHIVED PRESCRIPTIONS",!
  • Line Location: EP+5
Function Call: WRITE
  • Prompt: !,"Outpatient prescriptions are cancelled 72 hours after admission",!
  • Line Location: PQ+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: O+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: O+2
Function Call: WRITE
  • Prompt: !,"RX #: ",$P(RX0,"^"),!,DRX,?45,"SIG: ",$P(RX0,"^",10)
  • Line Location: O+3
Function Call: WRITE
  • Prompt: !?2,"QTY: ",$P(RX0,"^",7),?23,"# OF REFILLS: ",$P(RX0,"^",9),?45,"ISSUE/EXPR : "
  • Line Location: O+4
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3),"/"
  • Line Location: O+4
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3)
  • Condition for execution: Y
  • Line Location: O+4
Function Call: WRITE
  • Prompt: !?2,"PHYS: ",PHYS,?30,"CLERK: ",$P(RX0,"^",16),?45,"FILLED: "
  • Line Location: O+6
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3)
  • Condition for execution: Y
  • Line Location: O+6
Function Call: WRITE
  • Prompt: " (",$P(RX0,"^",11),")"
  • Line Location: O+6
Function Call: WRITE
  • Prompt: !?2,"LAST FILLED: "
  • Line Location: O+7
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3),?45,$S($P(RX2,"^",15):"Original Fill Returned to Stock",1:"")
  • Condition for execution: Y
  • Line Location: O+7
Function Call: WRITE
  • Prompt: " "_$E(^PSRX(J,1,K,0),4,5)_"-"_$E(^(0),6,7)_"-"_$E(^(0),2,3)_" ("_$P(^(0),"^",2)_")"_$S($P(^(0),"^",16):"(R)",1:"")
  • Line Location: O+9
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: CT#5
  • Line Location: O+9
Function Call: WRITE
  • Prompt: $E(^(K,0),4,5),"-",$E(^(0),6,7),"-",$E(^(0),2,3)," (",$P(^(0),"^",2),") QTY:",$P(^(0),"^",4)_$S($P(^(0),"^",16):" Returned to Stock",1:"")_", "
  • Line Location: O+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUS+0
Routine Call
  • DIR
  • Line Location:
    • EP+7
    • S+1
    • S+3
    • O+1
    • PAUS
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PQ+1
^PS(55 - [#55] PQ, LOOP
^PS(59 - [#59] O+12
^PSDRUG - [#50] O, DRUG, CLSS
^PSRX - [#52] O, O+6, O+7, O+8, O+9, O+10, LOOP, DATE, DRUG, CLSS
^TMP($J EP+6!, PQ!, PQ+3, Q!, DATE*, DRUG*, CLSS*
^VA(200 - [#200] O+5

Label References

Name Line Occurrences
@( LOOP
APSPMED DEV+4, DEV+5
DEV S+2
LOOP PQ
O PQ+3
P DEV+5
PAUS PQ+2, PQ+5
PQ P+1
Q EP+3, EP+7, S+1, S+3, DEV, DEV+4, DEV+5, P+2

Naked Globals

Name Field # of Occurrence
^( PQ+1, O+10, LOOP
^(0 O, O+5, O+9, O+10, O+12, LOOP, DATE, DRUG, CLSS
^(2 O

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV!*
AL Q!
APSP DEV+3*, Q+1!
APSPAGE EP+6*, P+1*, Q+1!
APSPBD Q+1!, LOOP
APSPCN Q+1!
APSPDPT EP+3, Q+1!
APSPDPT( DEV+3, P+1
APSPED Q+1!, LOOP
APSPZ P+1*, Q+1!
>> APSPZZ DEV+2*
CT Q!, O+8*, O+9*
D0 Q!
DA EP+6*, P+1*, PQ, PQ+1, Q!
DFN P+1*, Q!, LOOP
DIC Q!
DIR EP+7!, S+1!, S+2!, S+3!, Q!
DIR("?" EP+7*, S+1*, S+2*
DIR("A" EP+7*, S*, S+2*, O+1*, PAUS*
DIR("B" EP+7*, S*, S+2*
DIR(0 EP+7*, S*, S+2*, O+1*, PAUS*
>> DIROUT P+1, PQ+3, PQ+4, O+1, PAUS
DIRUT EP+7, S+1, Q!
>> DO P+1*
DRUG PQ+3*, Q!
DRX Q!, O*, O+3
DT S+3
>> DTOUT S+3, P+1, PQ+3, PQ+4, O+1, PAUS
DUOUT EP+7, S+1, S+3, P+1, PQ+3, PQ+4, Q!, O+1, PAUS
FN P+1*, Q!
G Q!
I Q!, LOOP*
I1 Q!
II PQ+3*, Q!
IO("Q" DEV+1, DEV+4!
IOF O+1, O+2, PAUS
ION DEV
IOP DEV!*
IOSL O+1, O+2
IOST O+1, O+2, PAUS
J PQ+3*, Q!, O, O+6, O+7, O+8, O+9, O+10, LOOP*, DATE
, DRUG, CLSS
K Q!, O+8*, O+9, O+10*
LMI Q!
PHYS Q!, O+5*, O+6
PI Q!
PLS EP+7*, PQ+2, Q!
>> POP DEV
>> PSDIV O+12*, O+13
PSODTCT S+3*, Q!, DRUG, CLSS
PSOION DEV*!, DEV+1!
>> PSOPAR S, PQ+1
PSRT S+1*, S+2, Q!, LOOP
Q DEV+4!
REF Q!, O+8*, O+9*, O+13
RX Q!
RX0 Q!, O*, O+3, O+4, O+5, O+6, O+8, O+11
RX2 Q!, O*, O+4, O+7, O+12
RXD Q!
RXF Q!
ST Q!, O+13
U LOOP
VA Q+1!
VADM Q+1!
VAEL Q+1!
VAERR Q+1!
VAPA Q+1!
X S+3, Q!, DATE*
>> X1 S+3*
>> X2 S+3*
Y EP+7, S+1, Q!, O+4*, O+6*, O+7*
>> ZTDESC DEV+1*
>> ZTQUEUED Q+1
>> ZTREQ Q+1*
ZTRTN DEV+2*, Q+1!
ZTSAVE Q+1!
ZTSAVE( DEV+2*
ZTSAVE("APSPDPT(" DEV+3*
ZTSK EP+6!, DEV!, DEV+4!
ZX Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All