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

Package: Controlled Substances

Routine: PSDCOR1


Information

PSDCOR1 ;BIR/JPW-CS Correction Action (cont'd) ; 6 July 94

Source Information

Source file <PSDCOR1.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDCOR  

Entry Points

Name Comments DBIA/ICR reference
GS ;select green sheet #
ASKD ;ask disp site
ASK
END
COM ;complete correction
FIND

External References

Name Field # of Occurrence
NOW^%DTC COM+1
^DIC ASKD+3, FIND+1
IX^DIC GS+6
^DIE FIND+4, FIND+7, FIND+9, FIND+10
^DIR ASK+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKD+1
Function Call: WRITE
  • Prompt: $C(7),!!,?15,"** NOTE **"
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: !,"Your Green Sheet selection is limited to those Green Sheets added using the"
  • Line Location: GS+2
Function Call: WRITE
  • Prompt: !,"Add Existing Green Sheets option. The Green Sheet status must still be",!,"DELIVERED - ACTIVELY ON NAOU for you to make this correction.",!!
  • Line Location: GS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+4
Function Call: WRITE
  • Prompt: $C(7),!!,"This Green Sheet has been transferred between NAOUs.",!,"You may not delete this Green Sheet.",!
  • Line Location: GS+7
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+11
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+12
Function Call: WRITE
  • Prompt: !!,"This action will delete Green Sheet #",PSDPN,"."
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"No action taken. The Green Sheet data still exists.",!!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Accessing Green Sheet #",PSDPN," information...",!!
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: !!,"Updating your records now..."
  • Line Location: FIND+5
Function Call: WRITE
  • Prompt: $C(7),!!,"** THIS GREEN SHEET HAS NOT BEEN CORRECTED **",!!,"The status remains "_STATN,!
  • Line Location: FIND+8
Function Call: WRITE
  • Prompt: ?2,!,"*** Your Green Sheet #"_PSDPN_" has been deleted. ***",!,"If you wish to add this Green Sheet again,",!,"please use the 'Add Existing Green Sheets' option.",!
  • Line Location: FIND+11
Routine Call
  • DIE
  • Line Location:
    • FIND+4
    • FIND+7
    • FIND+9
    • FIND+10
Routine Call
  • DIC
  • Line Location:
    • ASKD+3
    • FIND+1
Routine Call
  • DIR
  • Line Location:
    • ASK+3
Routine Call
  • DIC
  • Line Location:
    • GS+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] GS+9, GS+11
^PSD(58.81 - [#58.81] GS+7, GS+10
^PSD(58.82 - [#58.82] GS+8
^PSD(58.87 - [#58.87] COM+3, FIND*, FIND+2

Label References

Name Line Occurrences
END ASKD+3, GS+6, GS+7, GS+11, ASK+3, FIND+8
FIND FIND
GS PSDCOR1+2, GS+12

Naked Globals

Name Field # of Occurrence
^(4 GS+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% COM+1, END!
%DT END!
%H END!
%I END!
D GS+4*, END!
DA ASKD+1!, GS+4!, ASK+1!, FIND+1!, FIND+3!*, FIND+4!, FIND+7!*, FIND+9!*, FIND+10!*, END!
DA(1 FIND+9*, FIND+10*
DA(2 FIND+9*, FIND+10*
DIC ASKD+1!*, ASKD+3!, GS+4!*, GS+6!, FIND+1!*, END!
DIC("A" ASKD+1*, GS+4*
DIC("B" ASKD+2*
DIC("S" ASKD+1*, GS+5*
DIC(0 ASKD+1*, GS+4*, FIND+1*
DIDEL FIND+7*!, FIND+9*!, FIND+10*!, END!
DIE FIND+3!*, FIND+4!, FIND+7!*, FIND+9!*, FIND+10!*, END!
>> DILOCKTM COM+3
DIR ASK+1!, ASK+3!, END!
DIR("?" ASK+2*
DIR("A" ASK+1*
DIR("B" ASK+1*
DIR(0 ASK+1*
DIROUT END!
DIRUT ASK+1!, END!
DLAYGO FIND+1!*
DR FIND+3!*, FIND+4!, FIND+7!*, FIND+9!*, FIND+10!*, END!
DTOUT FIND+8, END!
DUOUT END!
NAOU GS+9*, GS+11, FIND+3, FIND+10, END+1!
NAOUN GS+9*, GS+11, END+1!
OK END+1!
ORD GS+9*, GS+11, FIND+3, FIND+10, END+1!
PHARM GS+10*, FIND+3, END+1!
PSDA GS+6*, GS+7, GS+10, FIND+7, FIND+9, END+1!
PSDCOR FIND*, FIND+1, FIND+3, END+1!
PSDPN GS+8*, GS+11, ASK, COM+2, FIND+3, FIND+11, END+1!
PSDR GS+9*, GS+11, FIND+3, FIND+9, FIND+10, END+1!
PSDS PSDCOR1+2*, ASKD+3*, FIND+3, FIND+9, END+1!
>> PSDSITE PSDCOR1+2, ASKD+4*
PSDSN PSDCOR1+2*, ASKD+2, ASKD+3*, ASKD+4, END+1!
PSDT GS+10*, FIND+3, END+1!
PSDUZ FIND+3, END+1!
QTY GS+10*, FIND+3, END+1!
RECDT COM+1*, FIND+3, END+1!
STAT GS+8*, GS+12, END+1!
STATN GS+8*, GS+12, FIND+8, END+1!
TYPE FIND+3, END+1!
U PSDCOR1+2, ASKD+4
X FIND+1*, END+1!
Y ASKD+3, ASKD+4, GS+6, ASK+3, FIND+8, END+1!
Y(0 GS+8, GS+9, GS+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All