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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGPLUP

Package: Inpatient Medications

Routine: PSGPLUP


Information

PSGPLUP ;BIR/CML3-UPDATE A PICK LIST ;28 JUN 96 / 9:24 AM

Source Information

Source file <PSGPLUP.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Inpatient Medications 8 $$ENDTC^PSGMI  ^PSGPLG  ^PSGPLR  ENQ^PSGPLUP  ENQ^PSGPLUP0  ($$LOCK,UNLOCK)^PSGPLUTL  (ENCV,ENKV)^PSGSETU  ENTSK^PSGTI  
VA Fileman 4 NOW^%DTC  ^DIC  YN^DICN  ^DIR  
Kernel 2 ^%ZIS  ^%ZISC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSGPLUP  PSJU PLUP  

Entry Points

Name Comments DBIA/ICR reference
RP ;
CHK ;
UP ;
DEV ;
UPC ;
QUEUE ;
ENQ ;
DONE ;
ASK ;
NL ; numeric look-up
DIC

External References

Name Field # of Occurrence
NOW^%DTC CHK+1
^%ZIS DEV+1
^%ZISC ASK+3, DONE+1, ENQ+6, ENQ+7
^DIC ASK+3
YN^DICN ENQ+7
^DIR CHK+3
$$ENDTC^PSGMI UP+1, NL+2
^PSGPLG ASK+3
^PSGPLR ENQ+6, ENQ+7
ENQ^PSGPLUP QUEUE+6
ENQ^PSGPLUP0 ENQ+5
$$LOCK^PSGPLUTL UP+2
UNLOCK^PSGPLUTL UP+3
ENCV^PSGSETU PSGPLUP+3
ENKV^PSGSETU DONE+1
ENTSK^PSGTI QUEUE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THERE ARE CURRENTLY NO PICK LISTS TO UPDATE."
  • Line Location: CHK+3
Function Call: READ
  • Prompt: "Select WARD GROUP or PICK LIST: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!?2,"Select a Ward Group for which a pick list has been run that you wish to",!,"update.",!?2,"You may also select a Pick List by number, which prints in the upper left",!,"corner of each pick list."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!?33,"*** WARNING ***",!,"THIS PICK LIST STARTED TO RUN ",$$ENDTC^PSGMI($P(^(0),"^",10)),", BUT HAS NOT RUN TO COMPLETION."
  • Line Location: UP+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!?33,"*** WARNING ***",!!?15,"THIS PICK LIST IS CURRENTLY LOCKED BY ANOTHER JOB."
  • Line Location: UP+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: UP+4
Function Call: WRITE
  • Prompt: !!,"Update terminated."
  • Line Location: UP+5
Function Call: WRITE
  • Prompt: !,"...this may take a few minutes..."
  • Line Location: UP+7
Function Call: WRITE
  • Prompt: !!,"DO YOU NEED A REPRINT OF THIS UPDATE"
  • Line Location: ENQ+7
Function Call: WRITE
  • Prompt: !!," Enter a 'U' if you wish to print only the new and edited (updated) orders for this pick list. Enter a 'P' to print the entire pick list, including the up- dated orders. Enter a '^' to terminate this update now."
  • Line Location: UPC+1
Function Call: WRITE
  • Prompt: "PDATE"
  • Line Location: UPC+2
Function Call: WRITE
  • Prompt: "ICK LIST"
  • Line Location: UPC+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: UPC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"No device chosen."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"Pick list update queued!"
  • Line Location: QUEUE+4
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' to reprint this update. Enter an 'N' (or '^') if you do not want to reprint this update."
  • Line Location: RP+1
Function Call: WRITE
  • Prompt: " ",PSGPLWGN,!?$L(GRP)+21,Y," thru ",PSGOD
  • Line Location: NL+3
Routine Call
  • DIC
  • Line Location:
    • ASK+3
Routine Call
  • DIR
  • Line Location:
    • CHK+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(57.5 - [#57.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.5 - [#53.5] CHK+2, UP+1, ENQ+4, NL+1
^PS(57.5 - [#57.5] ASK+3, NL+2

Label References

Name Line Occurrences
ASK ASK+3
CHK ASK+1, ASK+4
DEV UP+7, ENQ+7
DIC ASK+3
DONE CHK+3, ASK+1, ENQ+8
NL ASK+1
QUEUE UP+7
RP ENQ+7
UP ASK+1, ASK+3
UPC UP+4

Naked Globals

Name Field # of Occurrence
^( CHK+2
^(0 UP+1
^(5 NL+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CHK+1, ENQ+7*
%ZIS DEV+1!*
%ZIS("A" DEV+1*
%ZIS("B" DEV+1*
CML DONE+1!
DIC ASK+3!, DIC!*
DIC("S" DIC*
DIC(0 DIC*
DIR CHK+3!
DIR(0 CHK+3*
DTIME ASK+1, UP+4
FD DONE+1!
FFF DONE+1!
FQ DONE+1!
GRP DONE+1!, NL+2*, NL+3
IO ENQ+2, ENQ+7
IO("Q" UP+7, ENQ+7, DEV+1!, QUEUE+1
IO(0 ENQ+2
ION ENQ+2, DEV+1
IOP ENQ+7*, DEV+1!*
IOST ENQ+2
PDRG DONE+1!
>> POP UP+7, ENQ+7, DEV+1*
>> PSGDT CHK+1*, CHK+2, DIC, NL+1
>> PSGID NL+2*
>> PSGION DEV+1*
PSGMAR DONE+1!
>> PSGOD NL+2*, NL+3
PSGPLC DONE+1!
PSGPLF DONE+1!, ENQ+4*
PSGPLG ASK+1*, ASK+3, DONE+1!, UP+1, UP+2, UP+3, ENQ+4, NL+2*
PSGPLGF ASK+1*, DONE+1!
PSGPLREN DONE+1!, ENQ+1~
PSGPLS DONE+1!, ENQ+4*
PSGPLTND DONE+1!, ENQ+4*
PSGPLUP DONE+1!, UP+6~*, ENQ+3*
PSGPLUPD DONE+1!, ENQ+2*, ENQ+7
PSGPLUPF DONE+1!, ENQ+4*
PSGPLUPQ ENQ+2, ENQ+7, DEV+1!, QUEUE+2*, QUEUE+4!
PSGPLUPR DONE+1!, ENQ+7*, QUEUE+2
PSGPLWG ASK+3*, DONE+1!, NL+2*
PSGPLWGN DONE+1!, NL+2*, NL+3
PSGPLWGP ASK+3*, DONE+1!, NL+2*
>> PSGTIR QUEUE+2*
>> PSJPRN QUEUE+3
>> Q CHK+2*
SD DONE+1!
TS DONE+1!
UP DONE+1!, UP+4*, UP+5, UP+6, ENQ+3, ENQ+4, ENQ+6, UPC+1*, UPC+2, UPC+3
, UPC+4*
WD DONE+1!
>> WSF ENQ+4*
>> X ASK+1*, ASK+2, QUEUE+3*, NL+1, NL+2*
>> XQUIT PSGPLUP+3
XX DONE+1!
>> Y ASK+1, ASK+3, NL+1*, NL+2*, NL+3*
>> ZTDESC QUEUE+2*
ZTSAVE QUEUE+2!
ZTSAVE( QUEUE+3*
ZTSAVE("PSJPRN" QUEUE+3*
>> ZTSK QUEUE+4, QUEUE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All