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

Package: Controlled Substances

Routine: PSDRSI


Information

PSDRSI ;BIR/JPW-Inspector Remove Hold on Green Sheet ; 10 Nov 93

Source Information

Source file <PSDRSI.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 NOW^%DTC  (,IX)^DIC  ^DIE  ^DIR  
Controlled Substances 1 ^PSDSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD INSP REMOVE HOLD  

Entry Points

Name Comments DBIA/ICR reference
COM ;complete at order level in 58.8
ASKN ;if nurse ask naou
GS ;select green sheet #
END

External References

Name Field # of Occurrence
NOW^%DTC GS+12
^DIC ASKN+3
IX^DIC GS+3
^DIE COM+4, COM+6
^DIR GS+11
^PSDSET PSDRSI+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Inspector Remove a Green Sheet from Hold"
  • Line Location: PSDRSI+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: $C(7),!!,"The Green Sheet # ",PSDPN," is assigned to ",NAOUN,".",!,"Please select another Green Sheet.",!
  • Line Location: GS+6
Function Call: WRITE
  • Prompt: $C(7),!!,"There's no data on ",NAOUN," for Green Sheet # ",PSDPN,".",!,"Contact your Pharmacy Coordinator for assistance.",!
  • Line Location: GS+7
Function Call: WRITE
  • Prompt: $C(7),!!,"This Green Sheet has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!,"Please select another Green Sheet.",!
  • Line Location: GS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+9
Function Call: WRITE
  • Prompt: !!,"Accessing ",PSDRN," information...",!!
  • Line Location: COM+1
Function Call: WRITE
  • Prompt: !!,"Updating your records now..."
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: $C(7),!!,"** THIS GREEN SHEET HAS NOT BEEN REMOVED FROM HOLD **",!!,"The status remains "_STATN,!
  • Line Location: COM+5
Function Call: WRITE
  • Prompt: ?2,!,"*** Your Green Sheet #"_PSDPN_" is now "_$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" ***",!
  • Line Location: COM+7
Routine Call
  • DIE
  • Line Location:
    • COM+4
    • COM+6
Routine Call
  • DIC
  • Line Location:
    • ASKN+3
Routine Call
  • DIR
  • Line Location:
    • GS+11
Routine Call
  • DIC
  • Line Location:
    • GS+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" GS+12
^PSD(58.8 - [#58.8] GS+5, GS+7
^PSD(58.81 - [#58.81] COM+7
^PSD(58.82 - [#58.82] GS+4, COM+7
^PSDRUG - [#50] GS+5
^VA(200 - [#200] PSDRSI+3

Label References

Name Line Occurrences
END ASKN+3, GS+3, GS+7, GS+11, COM+5
GS GS+6, GS+8, GS+11, COM+8

Naked Globals

Name Field # of Occurrence
^(0 PSDRSI+3, COM+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GS+12, END!
%DT END!
%H END!
%I END!
AOU ASKN+3*, GS+6, END!
AOUN ASKN+3*, END!
D GS+1*, END!
DA ASKN+1!, GS+1!, GS+9!, COM+4!*, COM+6!*, END!
DA(1 COM+6*
DA(2 COM+6*
DIC ASKN+1!*, ASKN+3!, GS+1!*, GS+3!, END!
DIC("A" ASKN+1*, GS+1*
DIC("S" ASKN+2*, GS+2*
DIC(0 ASKN+1*, GS+1*
DIE COM+4!*, COM+6!*, END!
DIR GS+9!, GS+11!
DIR("?" GS+10*
DIR("A" GS+9*
DIR("B" GS+9*
DIR(0 GS+9*
DIRUT GS+9!, GS+11
DR COM+4!*, COM+6!*, END!
DTOUT COM+5, END!
DUOUT END!
DUZ PSDRSI+3
NAOU GS+5*, GS+6, GS+7, COM+6, END+1!
NAOUN GS+5*, GS+6, GS+7, END+1!
OK END+1!
ORD GS+5*, GS+7, COM+6, END+1!
PSDA GS+3*, COM+4, COM+7, END+1!
PSDPN GS+4*, GS+6, GS+7, COM+7, END+1!
PSDR GS+5*, GS+7, COM+6, END+1!
PSDRN GS+5*, COM+1, END+1!
>> PSDSITE PSDRSI+2
PSDUZ PSDRSI+3*, END+1!
PSDUZN PSDRSI+3*, END+1!
RECD GS+12*, COM+4, END+1!
RECDT GS+12*, END+1!
STAT GS+4*, GS+8, COM+7*, END+1!
STATN GS+4*, GS+8, COM+5, END+1!
SUB END+1!
TRANS END+1!
X END+1!
Y ASKN+3, GS+3, GS+11, GS+12*, COM+5, END+1!
Y(0 GS+4, GS+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All