Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSDCOR

Package: Controlled Substances

Routine: PSDCOR


Information

PSDCOR ;BIR/JPW-CS Correction Action ; 6 July 94

Source Information

Source file <PSDCOR.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;sets type=1
EN2 ;sets type=2
EN3 ;sets type=3
START ;start proc
ASKN ;ask naou
GS ;select green sheet #
ASK
COM ;complete correction
FIND
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to correct",!,?12,"narcotic orders.",!!,"PSDMGR security key required.",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"Controlled Substances Correction Action"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: $C(7),!!,?15,"** NOTE **",!,"Your Green Sheet selection is limited to those Green Sheets flagged as",!,"'COMPLETED - GREEN SHEET READY FOR PICKUP' on the selected NAOU.",!
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+2
Function Call: WRITE
  • Prompt: $C(7),!!,"The Green Sheet # ",PSDPN," is assigned to ",NAOUN,".",!,"Please select another Green Sheet.",!
  • Line Location: GS+9
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+10
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+11
Function Call: WRITE
  • Prompt: !!,"This action will update Green Sheet #",PSDPN," as ",!,?5,"** DELIVERED - ACTIVELY ON NAOU **",!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"No action taken.",!!
  • 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_" is now "_$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" ***",!
  • Line Location: FIND+10
Info |  Source |  Entry Points |  Interaction Calls