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

Package: Controlled Substances

Routine: PSDGSRV1


Information

PSDGSRV1 ;BIR/BJW/PWC-Complete GS for Ret Stk/Destroy ; 7 Apr 98

Source Information

Source file <PSDGSRV1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIC  ^DIE  ^DIR  
Controlled Substances 1 ^PSDGSRV2  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSDADJ  PSDGSRV  

Entry Points

Name Comments DBIA/ICR reference
DESTA ;update naou balance added 8/19/96
OK
SUB ;add balance,Line 4,6,9 added 7/9/97 to update naou bal.
DEST ;set up file 58.86
UPDATE ;update 58.81
QTY ;
PRINT ;print 2321
MSG ;
END
ASKN
FIND
ORDER ;update order info in 58.8
REAS

External References

Name Field # of Occurrence
NOW^%DTC UPDATE+2, SUB+2
^DIC ORDER+6, FIND+1
^DIE UPDATE+6, ORDER+3, ORDER+7, FIND+5
^DIR QTY+4, ASKN, REAS, OK+2
^PSDGSRV2 PRINT+6
$$FMTE^XLFDT PRINT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: !!,"Accessing Green Sheet information...",!
  • Line Location: UPDATE+1
Function Call: WRITE
  • Prompt: !!,"Updating your records..."
  • Line Location: UPDATE+7
Function Call: WRITE
  • Prompt: "nursing records now..."
  • Line Location: ORDER+2
Function Call: WRITE
  • Prompt: "done.",!!
  • Line Location: ORDER+8
Function Call: WRITE
  • Prompt: ?2,"*** The status of your Green Sheet #"_PSDPN_" *** ",!
  • Line Location: ORDER+9
Function Call: WRITE
  • Prompt: ?6,$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" "_$P($G(^PSD(58.83,CSTAT,0)),"^")
  • Line Location: ORDER+10
Function Call: WRITE
  • Prompt: $C(7),!!,"*** THIS GREEN SHEET HAS NOT BEEN COMPLETED ***",!,"The status remains "_STATN,!
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !!!,"Old Balance: ",BAL,?25,"New Balance: ",BAL+RQTY,!!
  • Line Location: SUB+9
Function Call: WRITE
  • Prompt: !!,"(NAOU) Old Balance: ",WARDBAL,?32,"(NAOU) New Balance: ",WARDBAL-RQTY,!!
  • Line Location: SUB+10
Function Call: WRITE
  • Prompt: !!!,"(NAOU) Old Balance: ",WARDBAL,?32,"(NAOU) New Balance: ",WARDBAL-RQTY,!
  • Line Location: DESTA+6
Function Call: WRITE
  • Prompt: !!,"Accessing your transaction history...",!!
  • Line Location: DEST+2
Function Call: WRITE
  • Prompt: !!,"Creating an entry in the Destruction file..."
  • Line Location: DEST+7
Function Call: WRITE
  • Prompt: !!,"Your Destruction Holding number is ",PSDHLD
  • Line Location: FIND+3
Function Call: WRITE
  • Prompt: !!,"Incomplete information. You must use the Reprint Disp/Receiving Report",!,"for VA FORM 10-2321 to be printed.",!
  • Line Location: FIND+6
Function Call: READ
  • Timeout: DTIME
  • Variable: NUM
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"No copies printed!!",!!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"Enter a whole number between 1 and 9",!
  • Line Location: PRINT+2
Routine Call
  • DIE
  • Line Location:
    • UPDATE+6
    • ORDER+3
    • ORDER+7
    • FIND+5
Routine Call
  • DIC
  • Line Location:
    • ORDER+6
    • FIND+1
Routine Call
  • DIR
  • Line Location:
    • QTY+4
    • ASKN
    • REAS
    • OK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+3
^PSD(58.8 - [#58.8] ORDER+5, ORDER+6, SUB+1, SUB+3, SUB+4, SUB+5*, SUB+7*, SUB+8, DESTA+1, DESTA+2
, DESTA+4*, DESTA+5, DEST+5
^PSD(58.81 - [#58.81] ORDER+9, ORDER+10, ORDER+11, DEST+3, DEST+6, FIND+5*
^PSD(58.82 - [#58.82] ORDER+10
^PSD(58.83 - [#58.83] ORDER+10
^PSD(58.86 - [#58.86] DEST+8, FIND*, FIND+2
^PSDRUG - [#50] DEST+5
^VA(200 - [#200] ASKN+1

Label References

Name Line Occurrences
DESTA ORDER+12
END QTY+4, ASKN, REAS, OK+2, ORDER+11
FIND FIND
MSG QTY+4, ASKN, REAS, OK+2
PRINT ORDER+11, PRINT+2
QTY OK+3
SUB UPDATE+2

Naked Globals

Name Field # of Occurrence
^(0 ORDER+5*, ORDER+10, ORDER+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% UPDATE+2, END!, SUB+2
%DT END!
%H END!
%I END!
BAL UPDATE+4, END!, SUB+3*, SUB+9
C END!
COMP QTY+2, REAS, UPDATE+2, UPDATE+4, UPDATE+5, ORDER+3, ORDER+7, ORDER+11, ORDER+12, END!
, DEST+4*
CPBY END!
CSTAT UPDATE+4, UPDATE+5, ORDER+3, ORDER+10*, END!
D END!
DA ASKN!, REAS!, OK!, UPDATE+3!*, UPDATE+6!, ORDER+3!*, ORDER+6!, ORDER+7!*, END!, FIND+1!
, FIND+4!*, FIND+5!
DA(1 ORDER+3*, ORDER+6*, ORDER+7*
DA(2 ORDER+3*, ORDER+6*, ORDER+7*
DIC ORDER+6!*, END!, FIND+1!*
DIC(0 ORDER+6*, FIND+1*
DIE UPDATE+3!*, UPDATE+6!, ORDER+3!*, ORDER+7!*, END!, FIND+4!*, FIND+5!
DINUM ORDER+6*!, END!, FIND+1*
DIR QTY+1!, QTY+4!, ASKN!, REAS!, OK!, OK+2!, END!
DIR("?" QTY+3*, OK+1*
DIR("A" QTY+2*, ASKN*, OK*
DIR("B" OK*
DIR(0 QTY+1*, ASKN*, REAS*, OK*
DIROUT END!
DIRUT QTY+1!, QTY+4, QTY+5!, OK!, OK+2, END!
DLAYGO ORDER+6*!, END!, FIND+1!*
DR UPDATE+3!, UPDATE+4*, UPDATE+5*, UPDATE+6!, ORDER+3!*, ORDER+7!*, END!, FIND+4!*, FIND+5!
DT ORDER+6, ORDER+7
DTIME PRINT+1
DTOUT ASKN!, REAS!, END!, FIND+6
DUOUT ASKN!, REAS!, END!
DUZ DEST+5
EXP ORDER+11*, END+1!, DEST+3*, DEST+6*, PRINT+5*
EXP1 END+1!, PRINT+5*
EXPD END+1!, PRINT+5*
LOT ORDER+11*, END+1!, DEST+3*, DEST+6*
MFG ORDER+11*, END+1!, DEST+3*, DEST+6*
NAOU ORDER+3, END+1!, SUB+4, SUB+7, DESTA+2, DESTA+4
NBKU QTY+2, END+1!, DEST+5*
NODE END+1!, DEST+3*, DEST+4, DEST+5, DEST+6
NOK END+1!
NUM END+1!, PRINT+1*, PRINT+2
NURS ASKN+1*, UPDATE+4, UPDATE+5, END+1!
NURSN ASKN+1*, END+1!, FIND+4
OCOMP END+1!
OK END+1!
ORD ORDER+3, END+1!
PG END+1!, PRINT+4*
POP END+1!
PSDA UPDATE+3, ORDER+9, ORDER+10, ORDER+11, END+1!, DEST+3, DEST+6, FIND+4, FIND+5
PSDCT END+1!, DEST+1*
PSDEV END+1!
PSDHLD END+1!, FIND*, FIND+1, FIND+3, FIND+4, FIND+5
PSDOUT END+1!, MSG+1*, DEST+1*
PSDPN ORDER+9, END+1!
PSDR ORDER+3, ORDER+5, ORDER+6, ORDER+7, END+1!, SUB+1, SUB+3, SUB+4, SUB+5, SUB+7
, SUB+8, DESTA+1, DESTA+2, DESTA+4, DESTA+5, DEST+5*, FIND+4
PSDRN END+1!, DEST+5*
PSDS ORDER+5, ORDER+6, ORDER+7, END+1!, SUB+1, SUB+3, SUB+5, SUB+8, DESTA+1, DESTA+5
, DEST+4*, DEST+5, FIND+4
PSDSN END+1!
PSDTYP END+1!, DEST+3*, DEST+4, DEST+6
PSDUZ UPDATE+4, UPDATE+5, END+1!, DEST+5*, FIND+4
PSDUZN END+1!
PSDYR END+1!, PRINT+3*, PRINT+4
QTY QTY+1, QTY+3, END+2!
REAS REAS+1*, END+2!, DEST+4*, DEST+6*
RECD END+2!
RECDT UPDATE+2*, UPDATE+4, UPDATE+5, ORDER+3, END+2!, SUB+2*, DEST+4*, FIND+4, PRINT+3, PRINT+4*
RQTY QTY+5*, UPDATE+4, UPDATE+5, END+2!, SUB+5, SUB+7, SUB+9, SUB+10, DESTA+4, DESTA+6
, DEST+4*, FIND+4
STAT ORDER+9*, ORDER+10, END+2!
STATN END+2!, MSG+1
SUB END+2!
WARDBAL END+2!, SUB+4*, SUB+10, DESTA+2*, DESTA+6
X ORDER+6*, END+2!, FIND+1*
Y QTY+4, QTY+5, ASKN+1, REAS+1, OK+3, END+2!, FIND+6, PRINT+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All