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

Package: Controlled Substances

Routine: PSDGSRV


Information

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

Source Information

Source file <PSDGSRV.m>

Entry Points

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

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, PSJ PHARM TECH or PSD TECH ADV security",!?12,"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: !
  • Line Location: START+2
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
Info |  Source |  Entry Points |  Interaction Calls