Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls