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

Package: Controlled Substances

Routine: PSDGSRV


Information

PSDGSRV ;BIR/JPW-Review and Complete Green Sheet ; 6 July 94

Source Information

Source file <PSDGSRV.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 NOW^%DTC  (,IX)^DIC  ^DIE  ^DIR  
Controlled Substances 3 ^PSDCOR3  ^PSDGSRV1  ^PSDSET  
Kernel 2 EN^XQH  SIG^XUSESIG  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD COMPLETE GS  

Entry Points

Name Comments DBIA/ICR reference
END
START ;start processing
UPDATE ;up 58.81
ASKD ;ask disp location
QUES ;ask ok if still active
MSG
GS ;select green sheet #
ORDER ;update drug balance & order info in 58.8

External References

Name Field # of Occurrence
NOW^%DTC UPDATE+2
^DIC ASKD+5, START+3
IX^DIC GS+3
^DIE UPDATE+10, UPDATE+14, ORDER+2
^DIR START+8, QUES+4
^PSDCOR3 ORDER+3
^PSDGSRV1 START+9
^PSDSET PSDGSRV+6
EN^XQH PSDGSRV+9
SIG^XUSESIG PSDGSRV+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to complete",!,?12,"Green Sheets. PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDGSRV+8
Function Call: WRITE
  • Prompt: !!,"Complete a Green Sheet"
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+2
Function Call: WRITE
  • Prompt: !!,"This order has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!
  • Line Location: GS+5
Function Call: WRITE
  • Prompt: !!,"Accessing Green Sheet information...",!
  • Line Location: UPDATE+1
Function Call: WRITE
  • Prompt: $C(7),!!,"*** THIS GREEN SHEET HAS NOT BEEN COMPLETED ***",!!,"The status remains "_STATN,!
  • Line Location: UPDATE+11
Function Call: WRITE
  • Prompt: !!,"Updating your records now..."
  • Line Location: ORDER+1
Function Call: WRITE
  • Prompt: "completion log..."
  • Line Location: ORDER+3
Function Call: WRITE
  • Prompt: "done.",!!
  • Line Location: ORDER+4
Function Call: WRITE
  • Prompt: ?2,"*** The status of your Green Sheet #"_PSDPN_" *** ",!
  • Line Location: ORDER+5
Function Call: WRITE
  • Prompt: ?6,$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN"),!,?6,$P($G(^PSD(58.83,CSTAT,0)),"^")
  • Line Location: ORDER+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QUES+2
Function Call: WRITE
  • Prompt: !!,"** No action taken. **",!
  • Line Location: MSG+0
Routine Call
  • DIE
  • Line Location:
    • UPDATE+10
    • UPDATE+14
    • ORDER+2
Routine Call
  • DIC
  • Line Location:
    • ASKD+5
    • START+3
Routine Call
  • DIR
  • Line Location:
    • START+8
    • QUES+4
Routine Call
  • DIC
  • Line Location:
    • GS+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] GS+10, START+6
^PSD(58.81 - [#58.81] GS+8, GS+9, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+10, ORDER+5, ORDER+6
^PSD(58.82 - [#58.82] GS+4, ORDER+6
^PSD(58.83 - [#58.83] ORDER+6
^PSDRUG - [#50] GS+7
^VA(200 - [#200] PSDGSRV+9, GS+1
^XUSEC("PSJ PHARM TECH" PSDGSRV+7
^XUSEC("PSJ RPHARM" PSDGSRV+7, START+2

Label References

Name Line Occurrences
END ASKD+5, GS+3, GS+5, START+3, START+8, UPDATE+11
GS ASKD+2, GS+6, ORDER+7
MSG GS+5, QUES+4
QUES GS+6
START START+8

Naked Globals

Name Field # of Occurrence
^(0 ORDER+6
^(4 GS+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% UPDATE+2, END!
%DT END!
%H END!
%I END!
C END!
COMP GS+7*, START+2, START+4*, START+6, START+9, UPDATE+9, ORDER+2, END!
CPBY GS+8*, END!
CSTAT START+4*, START+6*, UPDATE+9, ORDER+2, ORDER+6*, END!
D GS+2*, END!
DA ASKD+3!, GS+2!, START+2!, START+7!, UPDATE+9!*, UPDATE+10!, UPDATE+14*, ORDER+2!*, END!, QUES+2!
DA(1 ORDER+2*
DA(2 ORDER+2*
DIC ASKD+3!*, ASKD+5!, GS+2!*, GS+3!, START+2!*, START+3!, END!
DIC("A" ASKD+4*, GS+2*, START+2*
DIC("B" ASKD+4*, START+2*
DIC("S" ASKD+3*, GS+2*, START+2*
DIC(0 ASKD+3*, GS+2*, START+2*
DIE UPDATE+9!*, UPDATE+10!, UPDATE+14*, ORDER+2!*, END!
DIR START+7!, START+8!, END!, QUES+2!, QUES+4!
DIR("?" START+7*, QUES+3*
DIR("A" START+7*, QUES+2*
DIR("B" START+8*
DIR(0 START+7*, QUES+2*
DIROUT END!
DIRUT START+7!, START+8, END!, QUES+2!, QUES+4
DR UPDATE+9!*, UPDATE+10!, UPDATE+14!*, ORDER+2!*, END!
DTOUT UPDATE+11, END!
DUOUT END!
DUZ PSDGSRV+7, PSDGSRV+9, GS+1
NAOU GS+7*, START+6, ORDER+2, END+1!
NBKU GS+10*, END+1!
NODE GS+3*, GS+4, GS+7, END+1!
NOK GS+6, END+1!, QUES+1*, QUES+4*, QUES+6*
NURSE UPDATE+8*, END+1!
OCOMP GS+7*, END+1!
OK PSDGSRV+7*, PSDGSRV+8!, END+1!
ORD GS+7*, ORDER+2, END+1!
>> PSD10 UPDATE+6*, UPDATE+14
>> PSD11 UPDATE+7*, UPDATE+14
PSDA GS+3*, GS+8, GS+9, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+14, ORDER+5
, ORDER+6, END+1!
PSDDT UPDATE+10*, ORDER+2, END+1!
PSDEV END+1!
PSDOUT START+1*, UPDATE+11*, END+1!
PSDPN GS+4*, ORDER+5, END+1!
PSDR GS+7*, GS+10, START+6, ORDER+2, END+1!
PSDRN GS+7*, END+1!
PSDS ASKD+1*, ASKD+6*, GS+10, START+6, END+1!
>> PSDSITE PSDGSRV+6, ASKD+1, ASKD+2, ASKD+6*
PSDSN ASKD+1*, ASKD+4, ASKD+6*, END+1!
PSDUZ GS+1*, START+2, UPDATE+9, END+1!
PSDUZN GS+1*, END+1!
QTY GS+7*, GS+9*, END+1!
RECD END+1!
RECDT UPDATE+2*, UPDATE+9, END+1!
STAT GS+4*, GS+5, GS+6, ORDER+3, ORDER+5*, ORDER+6, END+1!
STATN GS+4*, GS+5, UPDATE+11, END+1!
SUB END+1!
TYPE ORDER+3*, END+1!
U PSDGSRV+9, ASKD+1, ASKD+2, ASKD+6, START+6
X PSDGSRV+10~, END+1!
X1 PSDGSRV+10~
XQH PSDGSRV+9~*
Y ASKD+5, ASKD+6, GS+3, START+3, START+4, START+8, UPDATE+2*, UPDATE+11, END+1!, QUES+5
, QUES+6
Y(0 GS+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All