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

Package: Outpatient Pharmacy

Routine: PSOCLOLS


Information

PSOCLOLS ; BHAM ISC/DMA - LIST CLOZAPINE RXS ENTERED BY OVERRIDE ; 04/06/93 15:01

Source Information

Source file <PSOCLOLS.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOLIST OVERRIDES  

Entry Points

Name Comments DBIA/ICR reference
DEV
PRINT
EXIT
DATE
QUE ;queue job
HD
DQ ;Entry to report

External References

Name Field # of Occurrence
^%DT DATE, DATE+1
^%ZIS DEV
^%ZISC EXIT
^%ZTLOAD QUE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Print list of clozapine prescriptions overriding lockout",!
  • Line Location: PSOCLOLS+2
Function Call: WRITE
  • Prompt: !!,"Ending date must be after beginning date"
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !,"Select a printer "
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,?5,"NO PRESCRIPTIONS FOUND",@IOF
  • Line Location: DQ+1
Function Call: WRITE
  • Prompt: !,?5,"NO PRESCRIPTIONS FOUND",@IOF
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !,?3,"Date : ",$E(PSOD,4,5),"/",$E(PSOD,6,7),"/",$E(PSOD,2,3),?25,"RX # : ",$S(RX]"":RX,1:"UNKNOWN"),?45,"Patient : ",$S(RX]"":PAT,1:"UNKNOWN")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?3,"DRUG : ",$S(RX]"":DRG,1:"UNKNOWN (PRESCRIPTION DELETED)")
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?3,"Entered by : ",USR,!,?3,"Approved by : ",APR
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?3,"Lockout reason : ",$P($P($P(^DD(52.52,4,0),"^",3),";",REA),":",2)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,?3,"Comments : "
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: COM,!!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,?14
  • Condition for execution: $L(X)+$X>70
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: X," "
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !!,?5,"LIST OF PRESCRIPTIONS WRITTEN FOR CLOZAPINE OVERRIDING LOCKOUT",!,?10,"FOR THE DATE RANGE ",$E(PSOBD,4,5),"/",$E(PSOBD,6,7),"/",$E(PSOBD,2,3)," THROUGH ",$E(PSOED,4,5),"/",$E(PSOED,6,7),"/",$E(PSOED,2,3),!
  • Line Location: HD+0
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(52.52 PRINT+6
^DPT - [#2] PRINT+2
^PS(52.52 - [#52.52] DQ+1, DQ+2, DQ+3
^PSDRUG - [#50] PRINT+2
^PSRX - [#52] PRINT+1
^VA(200 - [#200] PRINT+1

Label References

Name Line Occurrences
DATE DATE+1
DEV DEV
EXIT DATE, DATE+1, DEV, DQ+1, DQ+2, QUE+1
HD DQ+1, PRINT
PRINT DQ+3
QUE DEV+1

Naked Globals

Name Field # of Occurrence
^( DQ+3
^(0 DQ+3, PRINT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE*, EXIT!
%DT("A" DATE*, DATE+1*
>> %ZIS DEV*
>> %ZIS("B" DEV*
APR EXIT!, PRINT+1*, PRINT+5
COM EXIT!, PRINT+1*, PRINT+7, PRINT+8
DATA DQ+3*, EXIT!, PRINT+1
DRG EXIT!, PRINT+1*, PRINT+2*, PRINT+4
IO HD
IO("Q" DEV+1
IOF DQ+1, DQ+2, DQ+4, PRINT
IOSL PRINT
IOST DEV
J EXIT!, PRINT+8*
PAT EXIT!, PRINT+1*, PRINT+2*, PRINT+3
POP DEV, EXIT!
PSOBD DATE*, DATE+1, DQ+1, DQ+2, DQ+3, EXIT!, HD
PSOD DQ+3*, EXIT!, PRINT+3
PSOED DATE+1*, DQ+2, DQ+3, EXIT!, HD
PSOI DQ+3*, EXIT!
REA EXIT!, PRINT+1*, PRINT+6
RX EXIT!, PRINT+1*, PRINT+2, PRINT+3, PRINT+4
USR EXIT!, PRINT+1*, PRINT+5
X EXIT!, PRINT+8*
>> Y DATE, DATE+1
ZTDESC EXIT!, QUE+1*
ZTIO EXIT!
ZTRTN EXIT!, QUE+1*
ZTSAVE EXIT!
ZTSAVE("PSOBD" QUE+1*
ZTSAVE("PSOED" QUE+1*
ZTSK EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All