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 |  Local Variables |  All
Print Page as PDF
Routine: PSDRLOG3

Package: Controlled Substances

Routine: PSDRLOG3


Information

PSDRLOG3 ;BIR/JPW,LTL-Inspector's Log By Date (cont'd) ; 31 May 95

Source Information

Source file <PSDRLOG3.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 NOW^%DTC  ^DIR  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDRLOG1  

Entry Points

Name Comments DBIA/ICR reference
END
HDR ;header for log
PRT ;
DONE
PRINT ;print inspector's log by naou, drug and green sheet #
LOOP2 ;print inv typ loop

External References

Name Field # of Occurrence
NOW^%DTC PRINT+1
^%ZISC END+3
^DIR DONE+1, HDR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?45,"**** NO PENDING NARCOTIC ORDERS FOR INSPECTION ****",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?2,"=> NAOU: ",NAOU,!
  • Line Location: PRINT+3
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: !,?42,"Inspector's Log for Controlled Substances",?120,"Page: ",PG,!,?52,RPDT,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?57,"DATE",?71,"QTY"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"DISP #",?13,"DRUG",?55,"RECEIVED",?68,"RECEIVED",?85,"EXP DATE"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?100,"DATE RETURNED"
  • Condition for execution: $G(PSDRET)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?118,"NAME/DATE"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?4,"=> INVENTORY TYPE: ",$S($E(TYPN,1,2)="ZZ":$E(TYPN,3,99),1:TYPN),!
  • Line Location: LOOP2+2
Function Call: WRITE
  • Prompt: !?2,"=> NAOU: ",NAOU,!!?4,"=> INVENTORY TYPE: ",$S($E(TYPN,1,2)="ZZ":$E(TYPN,3,99),1:TYPN),!
  • Line Location: LOOP2+7
Function Call: WRITE
  • Prompt: !?2,"=> NAOU: ",NAOU,!!?4,"=> INVENTORY TYPE: ",$S($E(TYPN,1,2)="ZZ":$E(TYPN,3,99),1:TYPN),!
  • Line Location: LOOP2+10
Function Call: WRITE
  • Prompt: !,?2,"=> NAOU: ",NAOU,!
  • Line Location: LOOP2+15
Function Call: WRITE
  • Prompt: !,?4,"=> INVENTORY TYPE: ",$S($E(TYPN,1,2)="ZZ":$E(TYPN,3,99),1:TYPN),!
  • Condition for execution: ASKN
  • Line Location: LOOP2+15
Function Call: WRITE
  • Prompt: !,?2,"=> NAOU: ",NAOU,!
  • Line Location: LOOP2+18
Function Call: WRITE
  • Prompt: !,?4,"=> INVENTORY TYPE: ",TYPN,!
  • Condition for execution: ASKN
  • Line Location: LOOP2+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: LN,!,"* - Transferred to another NAOU",!,"** - Received from another NAOU",!
  • Line Location: PRT+2
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+1
^TMP("PSDRLOG" PRINT+2, PRINT+3, END+3!, LOOP2+1, LOOP2+2, LOOP2+3, LOOP2+6, LOOP2+9, LOOP2+11, LOOP2+14
, LOOP2+16, LOOP2+17, LOOP2+19

Label References

Name Line Occurrences
DONE PRINT+2
HDR PRINT+2, PRINT+3, LOOP2+7, LOOP2+10, LOOP2+15, LOOP2+18
LOOP2 PRINT+3
PRT PRINT+3, LOOP2+7, LOOP2+10, LOOP2+15, LOOP2+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+1, END!
%H END!
%I END!
%ZIS END!
ALL END!
ANS END!
ASK END!, LOOP2+4, LOOP2+20
ASKN END!, LOOP2+15, LOOP2+18
CNT END!
COMM END!
DA END!, HDR+1!
DIC END!
DIE END!
DIR DONE+1!, END!, HDR+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, HDR+1*
DIROUT END!
DIRUT DONE+1!, END!
DIWF END!
DIWL END!
DIWR END!
DR END!
DTOUT END!
DUOUT END!
EXP END!
EXPD END!
FLAG END!
IOF DONE, HDR+2
IOSL LOOP2+7, LOOP2+10, LOOP2+15, LOOP2+18, PRT+1
IOST DONE, DONE+1, HDR+1
JJ END!, PRT+1*
KK END!
LN PRINT+2!*, END!, HDR+6, PRT+2
LNUM PRINT+3*, END!, LOOP2+2*, LOOP2+7*, LOOP2+10*, LOOP2+13*, LOOP2+15*, LOOP2+18*, LOOP2+22*, PRT+1
LOOP END!
LOT END!
MFG END!
NAOU PRINT+1*, PRINT+3*, END!, LOOP2+1, LOOP2+7, LOOP2+10, LOOP2+15, LOOP2+18
NAOU(1 LOOP2+1*, LOOP2+2, LOOP2+3, LOOP2+6, LOOP2+9, LOOP2+11, LOOP2+14, LOOP2+16, LOOP2+17, LOOP2+19
NODE END!, LOOP2+11*, LOOP2+12, LOOP2+13, LOOP2+19*, LOOP2+20, LOOP2+21
NODE1 END!
NODE3 END!
NODE7 END!
NUM END!, LOOP2+5*, LOOP2+6*, LOOP2+9, LOOP2+11, LOOP2+12, LOOP2+17*, LOOP2+19, LOOP2+20
OK END+1!
ORD END+1!
ORDN END+1!
PG PRINT+1*, END+1!, HDR+1, HDR+2*
PSD END+1!
PSDA END+1!
PSDATE END+1!
PSDCNT END+1!, LOOP2+9*, LOOP2+11, LOOP2+17*, LOOP2+19
PSDDT END+1!
PSDG END+1!
PSDIO END+1!
PSDN END+1!
PSDNA END+1!
PSDOK END+1!
PSDOUT PRINT+1*, PRINT+3, DONE+1, END+1!, HDR+1*, LOOP2+2, LOOP2+6, LOOP2+7, LOOP2+9, LOOP2+10
, LOOP2+14, LOOP2+15, LOOP2+17, LOOP2+18
PSDR END+1!, LOOP2+8*, LOOP2+9*, LOOP2+11
PSDRD END+1!
PSDRET END+1!, HDR+5
PSDRN END+1!, LOOP2+14*, LOOP2+16, LOOP2+20
PSDRN(1 LOOP2+16*, LOOP2+17, LOOP2+19
PSDSD END+1!
PSDST END+1!
PSDTR END+1!
PSDTYP END+1!
QTY END+1!
REQD END+1!
REQDT END+1!
RPDT PRINT+1*, END+1!, HDR+2
RQTY END+1!
SEL END+2!
STAT END+2!
STATN END+2!
TEXT END+2!
TYP END+2!
TYPN END+2!, LOOP2+2*, LOOP2+3, LOOP2+7, LOOP2+10, LOOP2+15, LOOP2+18
TYPN(1 LOOP2+3*, LOOP2+6, LOOP2+9, LOOP2+11, LOOP2+14, LOOP2+16, LOOP2+17, LOOP2+19
U LOOP2+12, LOOP2+13
X END+2!
Y PRINT+1*, END+2!, HDR+1
ZTDESC END+2!
ZTDTH END+2!
ZTIO END+2!
>> ZTQUEUED END+4
>> ZTREQ END+4*
ZTRTN END+2!
ZTSAVE END+2!
ZTSK END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All