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

Package: Outpatient Pharmacy

Routine: PSOARCLT


Information

PSOARCLT ;BHAM ISC/LGH - list archived prescriptions ; 11/17/92 18:17

Source Information

Source file <PSOARCLT.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 1 EN^PSOHLUP  
Registration 1 (ADD,DEM,ELIG,KVA)^VADPT  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO ARCHIVE LIST RX'S  PSOARC  

Entry Points

Name Comments DBIA/ICR reference
AC
END ;
P
GET
Q
RE
DONE
W

External References

Name Field # of Occurrence
^%ZIS AC+4
HOME^%ZIS END+1
^%ZISC AC+4, DONE
^%ZTLOAD AC+4
^DIC AC+1
EN^PSOHLUP AC+1
ADD^VADPT GET+1
DEM^VADPT GET+1
ELIG^VADPT GET+1
KVA^VADPT RE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: AC+0
Function Call: WRITE
  • Prompt: !,"Patient has no archived prescriptions !",!
  • Line Location: AC+2
Function Call: READ
  • Prompt: " Please press RETURN to continue"
  • Formatting: !
  • Timeout: DTIME
  • Variable: Z
  • Line Location: AC+5
Function Call: WRITE
  • Prompt: @IOF,!,$G(VADM(1)),?40,"ID#: ",$P($G(VADM(2)),"^",2)
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !?5,"(TEMP ADDRESS from "_Y
  • Line Location: GET+3
Function Call: WRITE
  • Prompt: " till "_Y_")"
  • Line Location: GET+3
Function Call: WRITE
  • Prompt: !,$G(VAPA(1)),?40,"DOB: ",$S($G(VADM(3)):$E($P(VADM(3),"^"),4,5)_"-"_$E($P(VADM(3),"^"),6,7)_"-"_(1700+$E($P(VADM(3),"^"),1,3)),1:"UNKNOWN")
  • Line Location: GET+4
Function Call: WRITE
  • Prompt: !,$G(VAPA(4)),?40,"PHONE: ",$G(VAPA(8))
  • Line Location: GET+5
Function Call: WRITE
  • Prompt: !,$P($G(VAPA(5)),"^",2)
  • Line Location: GET+6
Function Call: WRITE
  • Prompt: " ",$G(VAPA(6)),?40,"ELIG: "
  • Line Location: GET+7
Function Call: WRITE
  • Prompt: SC
  • Line Location: GET+7
Function Call: WRITE
  • Prompt: !,"CANNOT USE SAFETY CAPS."
  • Line Location: GET+8
Function Call: WRITE
  • Prompt: ?40,"DIALYSIS PATIENT."
  • Line Location: GET+9
Function Call: WRITE
  • Prompt: !!?5,"Pharmacy narrative: "
  • Line Location: GET+10
Function Call: WRITE
  • Prompt: $P(X," ",I)," "
  • Line Location: GET+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>75
  • Line Location: GET+10
Function Call: WRITE
  • Prompt: !!,"ELIGIBILITY: ",SC
  • Line Location: RE+1
Function Call: WRITE
  • Prompt: PSDIS,"-",PSCNT,"% (",$S($P(I1,"^",3):"SC",1:"NSC"),"), "
  • Line Location: RE+3
Function Call: WRITE
  • Prompt: !!,"ARCHIVED: "
  • Line Location: END+1
Function Call: WRITE
  • Prompt:
  • Condition for execution: PSOD'=0 !?10 S PSOD=$O(^PS(55,DA,"ARC",PSOD)) Q:'PSOD
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: Q:'$D(^PS(55,DA,"ARC",PSOD,1,0)) Q:$P(^PS(55,DA,"ARC",PSOD,1,0),U,4)'>0
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $E(PSOD,4,5),"/",$E(PSOD,6,7),"/",$E(PSOD,2,3)," - "
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?21
  • Condition for execution: ($X+$L($P(PSORR,"*",J1))+1)>IOM
  • Line Location: P+1
Function Call: WRITE
  • Prompt: $P(PSORR,"*",J1),","
  • Line Location: P+1
Routine Call
  • %ZIS
  • Line Location:
    • END+1
Routine Call
  • DIC
  • Line Location:
    • AC+1
Routine Call
  • %ZIS
  • Line Location:
    • AC+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" GET+3
^DIC(31 - [#31] RE+3
^DPT - [#2] RE, RE+2, RE+3
^PS(55 - [#55] AC+1, AC+2, GET+8, GET+9, GET+10, END+1, W, W+1, P

Label References

Name Line Occurrences
DONE AC+1, AC+4
END RE, RE+2
GET AC+5
P W+1
PSOARCLT AC+2, AC+4, AC+5
W END+1

Naked Globals

Name Field # of Occurrence
^( RE, RE+3
^(0 GET+8, RE+3
^(1 GET+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS AC+4*
BS DONE!
DA AC+1*, AC+2, AC+4, DONE!, GET, END+1, W, W+1, P
DFN AC+1*, DONE!, GET*, GET+8, GET+9, GET+10, RE, RE+2, RE+3
DIC AC+1*!
DIC("A" AC+1*
DIC("S" AC+1*
DIC(0 AC+1*
DT GET+3
DTIME AC+5
FF DONE!
>> I GET+10*, RE+3*
>> I1 RE+3*
IO AC+4
IO(0 AC+4
IOF GET+2, END+3
IOM P+1
IOST END+3
J1 DONE!, P+1*
JJ DONE!, END+1*
KK DONE!, W+1*
LMI Q!
>> POP AC+4
>> PSCNT RE+3*
>> PSDIS RE+3*
>> PSLC RE*, RE+1*, RE+2*
PSOD END+1*, END+2!, W, W+1, P
PSOR END+2!, W*, W+1*, P
PSORR END+2!, P*, P+1
SC DONE!, GET+7*, RE+1, RE+2!, Q!
SL DONE!
SUB DONE!
TEMP DONE!, Q!
TMPDT Q!
U END+1*, W
>> VA("BID" DONE!
>> VA("PID" DONE!
>> VADM(1 GET+2
>> VADM(2 GET+2
>> VADM(3 GET+4
>> VAEL(1 GET+7
>> VAPA(1 GET+4
>> VAPA(10 GET+3
>> VAPA(4 GET+5
>> VAPA(5 GET+6
>> VAPA(6 GET+7
>> VAPA(8 GET+5
>> VAPA(9 GET+3
X DONE!, GET+10*
XI DONE!
XY DONE!
Y AC+1, DONE!, GET+3*, Q!
Z AC+5*, DONE!
ZTDESC AC+4*!
ZTDTH AC+4*!
>> ZTQUEUED END+4
>> ZTREQ END+4*
ZTRTN AC+4*!
ZTSAVE AC+4!
ZTSAVE("DA" AC+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All