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

Package: Controlled Substances

Routine: PSDGSRV2


Information

PSDGSRV2 ;BIR/BJW-Print(VA FORM 10-2321) for Ret Stk/Destroy ; 20 SEP 96

Source Information

Source file <PSDGSRV2.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 Y^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Controlled Substances 6 PSDESTF  PSDESTO  PSDGSRV1  PSDNTF  PSDNTFPC  PSDRPT  

Entry Points

Name Comments DBIA/ICR reference
END ;
HDR ;5/16/96 added Hdr,Prtmp for ret/stk or destroys
DEV ;asks device and queueing information
START
DONE
PRINT ;print 2321 for ret/stk and destroys(psdcoms added for e3r# 3771)
PRTMP ; print 2321 fr temp file
SAVE ;

External References

Name Field # of Occurrence
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC END+2
^%ZTLOAD DEV+4
Y^DIQ DEV+2
^DIR DONE+1

Interaction Calls

Name Line Occurrences
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: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,?55,"*** REPRINT ***"
  • Condition for execution: $D(REPRINT)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,?5,"VA FORM 10-2321",?42,"Narcotic Dispensing/Receiving Report for ",$P($G(^PSD(58.8,+PSDS,0)),"^")
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?120,"Page: ",PG,!,?52,RECDT,!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?14,"DATE",?78,"DATE"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"DISP #",?12,"DISPENSED",?24,"QTY",?33,"DRUG",?78,"ORD",?90,"ORDERED BY"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,LN,!!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: PSDPN
  • Condition for execution: $D(PSDPN)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?12,RECDT,?24,RQTY,?33,PSDRN
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,?33,"Mfg/Lot #/Exp Date: ",MFG_" "_LOT_" "_EXP,!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,?7,$S($D(PSDOK):"Witnessed",1:"Disp")," by:___________________________________",?61,$S($D(PSDOK):"Witnessed",1:"Rec'd")," by:___________________________________"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?15,"(Full Name)",?69,"(Full Name)",!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!!,?15,"*** ",$S(COMP=999:"TRANSFERRED BETWEEN NAOUs",COMP=3:"RETURNED TO STOCK",1:"TURNED IN FOR DESTRUCTION")," *** ",REAS
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: " from "_AOUN_" to "_NAOUTN
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?55,"*** REPRINT ***"
  • Condition for execution: $D(REPRINT)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?5,"VA FORM 10-2321",?42,"Narcotic Dispensing/Receiving Report for ",$P($G(^PSD(58.8,+PSDS,0)),"^")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?120,"Page: ",PG,!,?52,RECDT,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?14,"DATE",?78,"DATE"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"DISP #",?12,"DISPENSED",?24,"QTY",?33,"DRUG",?78,"ORD",?90,"ORDERED BY"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,LN,!!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,?12,$P(NODE,"^",2),?24,$P(NODE,"^",4),?33,$P(NODE,"^",3)
  • Line Location: PRTMP+4
Function Call: WRITE
  • Prompt: !,?33,"Mfg/Lot #/Exp Date: ",MFG_" "_LOT
  • Line Location: PRTMP+5
Function Call: WRITE
  • Prompt: !!!,?15,"*** ",$S(COMP=999:"TRANSFERRED BETWEEN NAOUs",COMP=3:"RETURNED TO STOCK",1:"TURNED IN FOR DESTRUCTION")," *** ",REAS
  • Line Location: PRTMP+9
Function Call: WRITE
  • Prompt: " from "_AOUN_" to "_NAOUTN
  • Line Location: PRTMP+9
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • DIR
  • Line Location:
    • DONE+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.8 DEV+2
^PSD(58.8 - [#58.8] DEV+2, PRINT+1, HDR+1
^TMP("PSDESTO" START, START+1, PRTMP+2

Label References

Name Line Occurrences
END DEV+4
HDR PRTMP+2
PRINT START
PRTMP START+1
SAVE DEV+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+3!*, END+1!
%ZIS("B" DEV+3*
>> AOUN PRINT+12, PRTMP+9, SAVE+4
C DEV+2*, END+1!
COMP END+1!, PRINT+12, PRTMP+9, SAVE+3
CPBY END+1!
DIR DONE+1!
DIR("A" DONE+1*
DIR(0 DONE+1*
DIRUT DONE+1!
EXP END+1!, PRINT+8, PRTMP+5
IO DEV+5
IO("Q" DEV+3!, DEV+4!
IOF DONE, PRINT+1, HDR+1
IOP DEV+3!
IOST DONE, DONE+1
JJ START*, END+1!, PRTMP+2*
LN START!*, END+1!, PRINT+5, HDR+5
LOT END+1!, PRINT+8, PRTMP+5
MFG END+1!, PRINT+8, PRTMP+5
>> NAOUTN PRINT+12, PRTMP+9, SAVE+4
NBKU END+1!
NODE END+1!, PRTMP+2*, PRTMP+4, PRTMP+8
NUM START, END+1!, PRTMP+2
OCOMP END+1!
>> OK DEV+2
PG END+1!, PRINT+1*, PRINT+2, HDR+1*, HDR+2
POP DEV+3!, END+1!
PSDA END+1!
PSDCOMS END+1!, PRINT+11, SAVE+7
PSDCT END+1!
PSDEV DEV+2*, DEV+3, END+1!
PSDHLD END+1!, PRINT+6, PRTMP+1*, PRTMP+2*, PRTMP+3, PRTMP+4, SAVE+2
PSDOK END+1!, PRINT+9, PRTMP+6, SAVE+6
PSDOUT DONE+1, END+1!
PSDPN END+1!, PRINT+7, SAVE+2
PSDR END+1!
PSDRN END+1!, PRINT+7
PSDS DEV+2, END+1!, PRINT+1, HDR+1, SAVE+3
PSDTYP END+1!
PSDUZ END+1!
REAS END+1!, PRINT+12, PRTMP+9
RECDT END+1!, PRINT+2, PRINT+7, HDR+2
>> REPRINT PRINT+1, HDR+1, SAVE+5
RQTY END+1!, PRINT+7
X END+1!
Y DEV+2*, END+1!
ZTDESC DEV+4*, END+1!
ZTDTH DEV+4!, END+1!
ZTIO DEV+4!
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN DEV+4*, END+1!
ZTSAVE DEV+4!, END+1!
ZTSAVE("AOUN" SAVE+4*
ZTSAVE("COMP" SAVE+3*
ZTSAVE("EXP" SAVE+1*
ZTSAVE("LOT" SAVE+1*
ZTSAVE("MFG" SAVE+1*
ZTSAVE("NAOUTN" SAVE+4*
ZTSAVE("NUM" SAVE+1*
ZTSAVE("PG" SAVE+1*
ZTSAVE("PSDCOMS" SAVE+1*, SAVE+7*
ZTSAVE("PSDHLD" SAVE+2*
ZTSAVE("PSDOK" SAVE+6*
ZTSAVE("PSDPN" SAVE+2*
ZTSAVE("PSDRN" SAVE+1*
ZTSAVE("PSDS" SAVE+3*
ZTSAVE("REAS" SAVE+1*
ZTSAVE("RECDT" SAVE+1*
ZTSAVE("REPRINT" SAVE+5*
ZTSAVE("RQTY" SAVE+1*
ZTSAVE("^TMP(""PSDESTO"",$J," SAVE+8*
ZTSK DEV+4!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All