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

Package: Controlled Substances

Routine: PSDCRP


Information

PSDCRP ;BIR/JPW-Green Sheet Discrepancy Report ; 29 Aug 94

Source Information

Source file <PSDCRP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIC  Y^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Controlled Substances 1 ^PSDSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD GS DISCREPANCY REPORT  

Entry Points

Name Comments DBIA/ICR reference
END ;
HDR ;header for log
START ;compile data
DEV ;ask device and queue info
ASKD ;ask dispensing location
DONE
PRINT ;print comp stat discrep report
ASKN ;ask NAOU(s)

External References

Name Field # of Occurrence
NOW^%DTC PRINT+1
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC END+3
^%ZTLOAD DEV+4
^DIC ASKD+6, ASKN+3
Y^DIQ DEV+2
^DIR DONE+1, HDR+1
^PSDSET PSDCRP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"review this narcotics report.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDCRP+4
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single NAOU, several NAOUs,",!,?5,"or enter ^ALL to select all NAOUs.",!!
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 132 column format.",!,"You may queue this report to print at a later time.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,?40,"**** NO PENDING GREEN SHEET DISCREPANCIES ****",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?2,"=> ",PSD,!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?2,"=> ",PSD,!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,NUM,?15,$P(NODE,"^"),?58,$P(NODE,"^",5),?80,$P(NODE,"^",2)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?25,"**Reason Referred: ",$P(NODE,"^",6),!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?45,"Green Sheet Discrepancies Report",?115,"Page: ",PG,!,?48,"Date Printed: ",RPDT,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?2,"=> NAOU",!,"DISP #",?15,"DRUG",?58,"DATE POSTED",?80,"COMPLETION STATUS"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HDR+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • DIC
  • Line Location:
    • ASKD+6
    • ASKN+3
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HDR+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+9, PRINT+1
^DD(58.8 DEV+2
^PSD(58.8 - [#58.8] ASKN+5, DEV+2, START+4
^PSD(58.81 - [#58.81] START+2, START+3, START+6, START+7, START+8
^PSD(58.83 - [#58.83] START+3
^PSDRUG - [#50] START+5
^TMP("PSDCRP" START+1!, START+10*, PRINT+3, PRINT+4, PRINT+5, PRINT+7, END+3!
^VA(200 - [#200] START+6, START+7
^XUSEC("PSJ PHARM TECH" PSDCRP+3
^XUSEC("PSJ RPHARM" PSDCRP+3

Label References

Name Line Occurrences
ASKN ASKD+2
DONE PRINT+3
END ASKD+6, ASKN+4, DEV+3, DEV+4
HDR PRINT+3, PRINT+4, PRINT+6

Naked Globals

Name Field # of Occurrence
^(0 ASKN+5, START+2, START+4, START+5, START+6, START+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%DT END+1!
%H END+1!
%I END+1!
%ZIS DEV+3!*, END+1!
%ZIS("B" DEV+3*
C DEV+2*, END+1!
DA ASKD+3!, ASKN+2!, END+1!, HDR+1!
DIC ASKD+3!*, ASKD+6!, ASKN+2!, ASKN+3*!, END+1!
DIC("A" ASKD+4*, ASKN+3*
DIC("B" ASKD+5*
DIC("S" ASKD+3*, ASKN+3*
DIC(0 ASKD+3*, ASKN+3*
DIR DONE+1!, END+1!, HDR+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, HDR+1*
DIROUT END+1!
DIRUT DONE+1!, END+1!
DRUG START+5*, END+1!
DRUGN START+5*, START+10, END+1!
DTOUT END+1!
DUOUT END+1!
DUZ PSDCRP+3
IO DEV+5
IO("Q" DEV+3!, DEV+4!
IOF DONE, HDR+2
IOP DEV+3!
IOSL PRINT+6
IOST DONE, DONE+1, HDR+1
LN PRINT+3!*, END+1!, HDR+4
NAOU ASKN+4, DEV+4, END+1!
NAOU( ASKN+3*, ASKN+5*, START+2
NAOUN START+4*, START+10, END+1!
NODE START+3*, START+5, START+9, PRINT+7*, PRINT+8, PRINT+9, END+1!
NUM PRINT+4*, PRINT+5, PRINT+7, END+1!
NURS START+7*, END+1!
NURSN START+7*, START+10, END+1!
OK PSDCRP+3*, PSDCRP+4!, END+2!
PG PRINT+2*, END+2!, HDR+1, HDR+2*
PHARM START+6*, END+2!
PHARMN START+6*, START+10, END+2!
POP DEV+3!, END+2!
PSD ASKN+5*, START+2*, START+4, PRINT+4*, PRINT+5, PRINT+6, PRINT+7, END+2!
PSDA START+2*, START+3, START+6, START+7, START+8, START+10, PRINT+5*, PRINT+7, END+2!
PSDEV DEV+2*, DEV+3, END+2!
PSDOUT PRINT+2*, PRINT+4, PRINT+5, PRINT+6, DONE+1, END+2!, HDR+1*
PSDPN START+3*, START+10, END+2!
PSDS ASKD+1*, ASKD+7*, ASKN+5, DEV+2, START+2, END+2!
>> PSDSITE PSDCRP+2, ASKD+1, ASKD+2, ASKD+7*
PSDSN ASKD+1*, ASKD+5, ASKD+7*, END+2!
PSDST START+9*, START+10, END+2!
REAS START+8*, START+10, END+2!
RPDT PRINT+1*, END+2!, HDR+2
STAT START+2*, START+3, END+2!
STATN START+3*, START+10, END+2!
U ASKD+1, ASKD+2, ASKD+7
X ASKN+4, ASKN+5, PRINT+1, END+2!
Y ASKD+6, ASKD+7, ASKN+3, DEV+2*, START+9*, PRINT+1*, END+2!, HDR+1
ZTDESC DEV+4*, END+2!
ZTDTH DEV+4!, END+2!
ZTIO DEV+4!
>> ZTQUEUED END+3
>> ZTREQ END+3*
ZTRTN DEV+4*, END+2!
ZTSAVE DEV+4!, END+2!
ZTSAVE("NAOU(" DEV+4*
ZTSAVE("PSDS" DEV+4*
ZTSK DEV+4!, END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All