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

Package: IHS Changes To Pharmacy

Routine: APSPMED3


Information

APSPMED3 ; IHS/DSD/ENM - PRINTS SHORT MEDICATION PROFILE ; [ 09/03/97 1:30 PM ]

Source Information

Source file <APSPMED3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Outpatient Pharmacy 1 STAT^PSOFUNC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSPMED  

Entry Points

Name Comments DBIA/ICR reference
Q ;D ^%ZISC K ^TMP($J),PSODTCT,ST,D0,DIC,DIR,DIRUT,DUOUT,G,II,K,RXD,RXF,ZX,DRUG,X,DFN,PHYS,PSRT,CT,AL,I1,PLS,REF,LMI,PI,FN,Y,I,J,RX,DRX,ST,RX0,RX2,DA S:$D(ZTQUEUED) ZTREQ="@" Q
HD
W ;I $Y+4>IOSL,IOST["C-" S DIR("A")="ENTER '^' TO HALT",DIR(0)="FO" D ^DIR Q:$D(DTOUT)!($D(DUOUT))!($D(DIROUT)) W @IOF

External References

Name Field # of Occurrence
^DIR W+1
STAT^PSOFUNC W+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ;I
  • Line Location: W+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: W+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: W+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !,$P(RX0,"^"),?8,$S(PSRT="DRUG":DRUG,$D(^PSDRUG(+$P(RX0,"^",6),0)):$P(^(0),"^"),1:"NOT ON FILE"),?44,$E(ST,1),?47,$J($P(RX0,"^",7),6)
  • Line Location: W+3
Function Call: WRITE
  • Prompt: ?55,$E($P(RX0,"^",13),4,5)_"-"_$E($P(RX0,"^",13),6,7)_"-"_$E($P(RX0,"^",13),2,3)
  • Line Location: W+5
Function Call: WRITE
  • Prompt: ?65,$E(RXD,4,5)_"-"_$E(RXD,6,7)_"-"_$E(RXD,2,3)_$S($G(RST(RXD)):"R",1:"")
  • Condition for execution: RXD
  • Line Location: W+5
Function Call: WRITE
  • Prompt: ?75,"("_RXF_")"
  • Line Location: W+5
Function Call: WRITE
  • Prompt: !?10,$P(RX0,"^",10)
  • Line Location: W+6
Function Call: WRITE
  • Prompt: !!,"RX# DRUG",?42,"STAT QTY",?55,"ISSUED ",?65,"LAST FILL REM"
  • Line Location: HD+0
Routine Call
  • DIR
  • Line Location:
    • W+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] W+3
^PSRX - [#52] APSPMED3+3, W+4
^TMP($J APSPMED3+3

Label References

Name Line Occurrences
HD APSPMED3+3, W+1
W APSPMED3+3

Naked Globals

Name Field # of Occurrence
^( APSPMED3+3
^(0 W+3, W+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DIR("A" W+1*
>> DIR(0 W+1*
DIROUT APSPMED3+2!, APSPMED3+3, W+1
DIRUT APSPMED3+2!
>> DRUG APSPMED3+3*, W+3
DTOUT APSPMED3+2!, APSPMED3+3, W+1
DUOUT APSPMED3+2!, APSPMED3+3, W+1
>> I APSPMED3+3*
>> II W+4*
IO HD
IOF W+1
IOSL W+1
IOST W+1
>> J APSPMED3+3*, W+4
>> PSRT W+3
RST W+6!
RST( APSPMED3+3*, W+4*, W+5
RX APSPMED3+2!
>> RX0 APSPMED3+3*, W+3, W+4, W+5, W+6
>> RX2 APSPMED3+3*
>> RXD W+4*, W+5
>> RXF W+4*, W+5
>> ST APSPMED3+3*, W+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All