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

Package: Controlled Substances

Routine: PSDPAT1


Information

PSDPAT1 ;B'ham ISC/JPW,BJW - Prt activity report (Patient/Drug) ; 17 Apr 98

Source Information

Source file <PSDPAT1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 NOW^%DTC  ^DIR  
Controlled Substances 1 ^PSDPAT2  
Kernel 1 ^%ZISC  
Registration 1 (DEM,KVAR)^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDPAT  

Entry Points

Name Comments DBIA/ICR reference
SET ;sets data
END ;
HDR ;header
CHK ;sets total qty used and balance
TOT ;prints total qty used and balance
START ;entry for compile and print
DONE
SET1 ;sets ^tmp
SET2 ;SETS TRANSFER DATA ONLY ;; *62 RJS >
PRINT ;prints data
CHKNOD7 ;

External References

Name Field # of Occurrence
NOW^%DTC PRINT+2
^%ZISC END+6
^DIR DONE+1, HDR+1
^PSDPAT2 PRINT+1
DEM^VADPT SET+7
KVAR^VADPT END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?15,"**** NO DISPENSING ACTIVITY ****",!!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?5,"=> ",PSDRG,!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: DATE,?22,PAT,?55,$J(QTY,6),?75,$J(PQTY,6),?98,$P(NODE,U,2),!,?98,$P(NODE,U,3),!,?25,$P(NODE,U,6),!
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: DATE,?22,PAT,?55,$J(QTY,6),?75,$J(PQTY,6),?98,$P(NODE,U,2),!,?98,$P(NODE,U,3),!
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: "-"
  • Condition for execution: TYP=17
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: $J(SOQTY,6)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: PSDRET,?22,PAT,?45,"*RETURN*",?55,$J(RQTY,6),?75,$J(NEWBAL,6),?98,$P(NODE,"^",2),!,?25,RREAS,?98,$P(NODE,"^",3),!
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: DATE,?22,PAT,?55,$J(QTY,6),?75,$J(PQTY,6),?98,$P(NODE,U,2),!,?98,$P(NODE,U,3),!
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: DATE,?22,PAT,?55,$J(QTY,6),?75,$J(PQTY,6),?98,$P(NODE,U,2),!,?98,$P(NODE,U,3),!
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: "-"
  • Condition for execution: TYP=0
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: $J(TRQTY,6),?75,$J(NEWBAL,6)
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?20,"Activity Report for ",NAOUN,?55,RPDT,?115,"Page: ",PG,!,?20,"Date: ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?5,"=> DRUG",!,"DATE/TIME",?22,"PATIENT",?55,"QUANTITY",?75,"BALANCE",?98,"NURSE 1",!,?98,"NURSE2",!,LN,!!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?5,"=> ",$S(PSDRG]"":PSDRG,1:PSDRGN),!
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+3
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+2, PRINT+11, PRINT+20, PRINT+33
^PSD(58.8 - [#58.8] START+2, START+6, START+7, CHKNOD7+3
^PSD(58.81 - [#58.81] START+3, START+4, START+16, START+17, START+18, SET+2, SET+3, SET+6, SET2+3, CHKNOD7+1
, CHKNOD7+2
^PSDRUG - [#50] START+9, START+20, SET+13, SET2+2
^TMP("PSDPAT" START+1!, START+20, START+21*, PRINT+3, PRINT+4, PRINT+5, PRINT+7, END+5!, SET1+2*, SET1+3*
, SET2+4, SET2+6*
^TMP("PSDPATL" START+22*, END+5!, SET1+4*, SET1+5*, SET1+6*, SET2+7*, SET2+8*, CHK+1
^VA(200 - [#200] START+11, SET+11, SET+12, CHKNOD7+5, CHKNOD7+6

Label References

Name Line Occurrences
CHK PRINT+4
CHKNOD7 SET1+1, SET2+5
DONE PRINT+1, PRINT+3
HDR PRINT+3, PRINT+4, PRINT+10, TOT+1
SET START+4
SET1 START+14
SET2 START+18
TOT PRINT+4

Naked Globals

Name Field # of Occurrence
^( SET1+5*
^(0 START+2, START+7, START+9, START+11, START+20, SET+2, SET+11, SET+12, SET+13, SET2+2
, CHKNOD7+5, CHKNOD7+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+2, END+2!
%DT END+2!
%H END+2!
%I END+2!
%ZIS END+2!
ALL START+2, END+2!
AQTY START+1*, PRINT+2*, END+2!, TOT+3*
BAL END+2!, CHK+1*
CNT START+1*, END+2!, SET1+2*, SET1+3, SET2+6*
DA END+2!, HDR+1!
DATE PRINT+11*, PRINT+14, PRINT+15, PRINT+17, PRINT+23, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+32
, END+2!
DDATE START+12*, PRINT+25*, END+2!, SET+6*, SET1+2
DFN END+2!, SET+7*
DIC END+2!
DIR DONE+1!, END+2!, HDR+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, HDR+1*
DIROUT END+2!
DIRUT DONE+1!, END+2!
DQTY START+12*, PRINT+6*, PRINT+25*, PRINT+26, END+2!, SET+6*, SET1+2
DREAS START+12*, PRINT+6*, PRINT+25*, PRINT+26, END+2!, SET+6*, SET1+2
DRUGNO START+12*, END+2!, SET+4*, SET1+2
DT START+21
DTOUT END+2!
DUOUT END+2!
IOF DONE, HDR+2
IOSL PRINT+10, TOT+1
IOST DONE, DONE+1, HDR+1
LN PRINT+2*, END+2!, HDR+3
LOOP END+2!
NAOU START+2, START+4, START+6, START+7, START+18, END+2!
NAOUN END+2!, HDR+2
NEWBAL PRINT+6*, PRINT+14*, PRINT+15*, PRINT+16*, PRINT+18, PRINT+20*, PRINT+21, PRINT+28*, PRINT+29*, PRINT+31*
, PRINT+34*, PRINT+35, END+2!
NODE START+7*, START+9, START+13*, START+14*, START+18*, PRINT+7*, PRINT+8, PRINT+12, PRINT+13, PRINT+14
, PRINT+15, PRINT+16, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+24, PRINT+25, PRINT+26
, PRINT+28, PRINT+29, PRINT+31, PRINT+32, PRINT+33, PRINT+34, PRINT+36, END+2!, SET+2*, SET+4
, SET+8, SET+9, SET1+2, SET1+7!, SET2+2, SET2+6, SET2+9!, CHKNOD7+4, CHKNOD7+5
NODE3 END+2!, SET+6*, SET1+7!, SET2+9!
NODE7 END+2!, SET1+7!, SET2+9!, CHKNOD7+1*, CHKNOD7+3, CHKNOD7+4, CHKNOD7+6
NODE9 START+13*, END+2!, SET+3*, SET+7, SET+8, SET+12
NUR1 START+9*, START+11*, END+2!, SET+8*, SET+9, SET+11*, SET1+2, SET1+7!, SET2+9!
NUR1(1 SET+9*, SET1+2
NUR2 START+9*, END+2!, SET+12*, SET1+2, SET1+7!, SET2+9!
ORDST PRINT+6*, PRINT+12*, PRINT+29, PRINT+30, END+2!, SET1+3, SET2+6, CHKNOD7+2*
PAT START+9*, PRINT+5*, PRINT+7, PRINT+14, PRINT+15, PRINT+17, PRINT+21, PRINT+23, PRINT+26, PRINT+27
, PRINT+28, PRINT+29, PRINT+32, PRINT+35, END+3!, SET+7*, SET1+2, SET1+3, SET2+1~, SET2+6*
PG PRINT+2*, END+3!, HDR+1, HDR+2*
POP END+3!
PQTY PRINT+14*, PRINT+15*, PRINT+28*, PRINT+29*, PRINT+31*, PRINT+32, END+3!
PSD START+3*, START+4, START+7*, START+8, START+16*, START+17, PRINT+4*, PRINT+5, PRINT+7, PRINT+11
, END+3!, SET1+2, SET1+3, SET2+6
PSD1 PRINT+5*, PRINT+7, END+3!
PSDA START+4*, START+6*, START+7, START+17*, START+18, END+3!, SET+2, SET+3, SET+6, SET2+3
, SET2+5
PSDATE END+3!, HDR+2
PSDED START+3, START+8, START+16, END+3!
PSDOUT PRINT+2*, PRINT+4, PRINT+5, PRINT+10, DONE+1, END+3!, HDR+1*, TOT+1
PSDPN END+3!
PSDR START+2*, START+3*, START+4, START+6*, START+7, START+9, START+10, START+20*, START+22, PRINT+12*
, END+3!, SET+5, SET+13, SET1+5, SET1+6, SET2+2*, SET2+8
PSDRET START+12*, PRINT+20*, PRINT+21*, END+3!, SET+6*, SET1+2
PSDRG PRINT+4*, PRINT+5, PRINT+7, PRINT+10, END+3!, CHK+1, TOT+1
PSDRG( START+2*, START+3, START+6, START+10*, START+18, START+20, START+22, SET+5*, SET1+5, SET1+6
, SET2+8
PSDRGN PRINT+7*, END+3!, TOT+1
PSDRN START+9*, START+20*, START+21, START+22, PRINT+2*, END+3!, SET+13*, SET1+2, SET1+3, SET1+4
, SET1+5, SET1+6, SET2+2*, SET2+4, SET2+6, SET2+7, SET2+8
PSDSD START+3, START+8, START+16, END+3!
PSDTR START+9*, SET1+7!, SET2+5*, SET2+9!, CHKNOD7+1, CHKNOD7+2
PSDTRDT SET2+1~, SET2+3*, SET2+4
QTY START+9*, START+10, PRINT+6*, PRINT+13*, PRINT+14, PRINT+15, PRINT+22*, PRINT+27, PRINT+28, PRINT+29
, PRINT+32, END+4!, SET+2*, SET1+2, SET1+5, SET1+7!, SET2+9!
RPDT PRINT+2*, END+3!, HDR+2
RQTY START+12*, PRINT+6*, PRINT+19*, PRINT+20, PRINT+21, END+3!, SET+6*, SET1+2
RREAS START+12*, PRINT+6*, PRINT+20*, PRINT+21, END+3!, SET+6*, SET1+2
SOQTY START+12*, PRINT+6*, PRINT+16*, PRINT+17, END+3!, SET+3*, SET+5, SET1+2, SET1+5
SUM PRINT+1, END+4!
T2NAOU PRINT+33*, END+4!, SET1+3, SET2+6, CHKNOD7+3*
TFDTE PRINT+33*, PRINT+35, END+4!, SET1+3, SET2+6, CHKNOD7+3*
TFNUR PRINT+33*, END+4!, SET1+3, SET2+6, CHKNOD7+4*, CHKNOD7+5*
TFNUR(1 CHKNOD7+5*
TPRVTR END+4!, SET1+3, SET2+6, CHKNOD7+3*
TQTY END+4!, CHK+1*
TRQTY PRINT+34*, PRINT+35, END+4!, SET1+3, SET2+6, CHKNOD7+3*
TTDTE PRINT+33*, END+4!, SET1+3, SET2+6, CHKNOD7+3*
TTNUR PRINT+34*, END+4!, SET1+3, SET2+6, CHKNOD7+6*
TTONAOU END+4!, CHKNOD7+3*
TYP START+4*, START+10, START+13*, PRINT+12*, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+19, PRINT+27
, PRINT+28, PRINT+29, PRINT+30, PRINT+35, END+4!, SET+5, SET+7, SET1+1, SET1+2, SET1+5
U START+9, START+13, START+14, START+18, START+20, START+22, PRINT+8, PRINT+14, PRINT+15, PRINT+22
, PRINT+25, PRINT+28, PRINT+29, PRINT+32, SET+8, SET+9, SET1+2, SET2+2, SET2+3, SET2+6
, CHKNOD7+3, CHKNOD7+4, CHKNOD7+5
UQTY END+4!, CHK+1*
VA END+1!
VADM END+4!
VADM(1 SET+7
VAERR END+4!, SET+7
WQTY START+12*, PRINT+6*, PRINT+22*, PRINT+23, END+4!, SET+3*, SET1+2
WREAS START+12*, PRINT+6*, PRINT+22*, PRINT+24, END+4!
X END+4!
Y PRINT+2*, PRINT+11*, PRINT+20*, PRINT+33*, END+4!, HDR+1
ZTDESC END+5!
ZTDTH END+5!
ZTIO END+5!
>> ZTQUEUED END+6
>> ZTREQ END+6*
ZTRTN END+5!
ZTSAVE END+5!
ZTSK END+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All