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

Package: Inpatient Medications

Routine: PSGPL


Information

PSGPL ;BIR/CML3-PICK LIST ;12 DEC 97 / 10:01 AM

Source Information

Source file <PSGPL.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 6 $$EN^PSGCT  ($$ENDD,$$ENDTC)^PSGMI  EN^PSGPL1  ($$LOCK,UNLOCK)^PSGPLUTL  (ENCV,ENKV)^PSGSETU  ENPL^PSGTI  
VA Fileman 5 ^%DT  (C,NOW)^%DTC  ^DIC  YN^DICN  (,IX)^DIK  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJU PL  

Entry Points

Name Comments DBIA/ICR reference
BOTH ;
BEGIN ; get ward group, last pick list # for group, see if it's a rerun.
; ND2 - 2 node of WARD GROUP file or WARD GROUP^^start date^stop date from pick list ) node
; PSGPLG - pick list number PSGPLWG - ward group number
; PSGPLF - start date PSGPLWGP - 5 node from WARD GROUP
SET ;
GETSF1
UL ;
DONE ;
RERUN ;
DTEXST ;
DTQ ;
GETSF ;

External References

Name Field # of Occurrence
^%DT GETSF1
C^%DTC GETSF1+4
NOW^%DTC BEGIN+5
^%ZISC DONE+1
^DIC BEGIN+7
YN^DICN GETSF1+7, RERUN+2
^DIK SET+1
IX^DIK SET+3
$$EN^PSGCT DTEXST+1, GETSF+2
$$ENDD^PSGMI GETSF+2
$$ENDTC^PSGMI BEGIN+10, DTEXST+1
EN^PSGPL1 BOTH+6
$$LOCK^PSGPLUTL BOTH+2, RERUN+1
UNLOCK^PSGPLUTL UL+1, RERUN+3, RERUN+4
ENCV^PSGSETU BEGIN+5
ENKV^PSGSETU DONE+1
ENPL^PSGTI BOTH+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Start date/time for this pick list: ",PSGOD
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: BOTH+1
Function Call: WRITE
  • Prompt: !!,"Pick list queued!"
  • Line Location: BOTH+4
Function Call: WRITE
  • Prompt: !!,"No device chosen for Pick List ",$E("re",1,RERUN),"run."
  • Line Location: BOTH+5
Function Call: WRITE
  • Prompt: !,"...this may take a while...(you really should QUEUE the pick list)..."
  • Line Location: BOTH+6
Function Call: WRITE
  • Prompt: !!,"The PICK LIST for this WARD GROUP was last run",$S(XX:" on "_XX,1:""),!," for ",Y," through ",X,!
  • Line Location: DTEXST+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"*** THIS PICK LIST HAS NOT RUN TO COMPLETION. ***",!
  • Line Location: DTEXST+3
Function Call: WRITE
  • Prompt: $C(7),!!,"This PICK LIST cannot be ",$E("re",1,RERUN),"run without a ",MES," date."
  • Line Location: GETSF1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"*** Stop date must be greater than start date !! ***",!
  • Line Location: GETSF1+2
Function Call: WRITE
  • Prompt: $C(7),!!,"*** WARNING: You're Attempting to run the Pick List for greater than 7 days ***",!
  • Line Location: GETSF1+6
Function Call: WRITE
  • Prompt: !,"Are you Sure (Y/N):"
  • Line Location: GETSF1+7
Function Call: WRITE
  • Prompt: $C(7),!!,"** THE NEXT PICK LIST FOR THIS WARD GROUP IS CURRENTLY RUNNING. **"
  • Line Location: RERUN+1
Function Call: WRITE
  • Prompt: !,"Do you want to rerun this pick list"
  • Line Location: RERUN+2
Function Call: WRITE
  • Prompt: $C(7)," (Answer required.)"
  • Condition for execution: %Y=""
  • Line Location: RERUN+2
Function Call: WRITE
  • Prompt: !!?2,"Enter a 'Y' to rerun this pick list. Enter an 'N' (or '^') to NOT rerun this pick list. NOTE: Rerunning a pick list deletes all of its old data.",!
  • Line Location: DTQ+1
Routine Call
  • DIC
  • Line Location:
    • BEGIN+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.5 - [#53.5] BEGIN+8, BOTH+1, BOTH+2*, BOTH+3, SET+2*, DTEXST+3, RERUN+3
^PS(57.5 - [#57.5] BEGIN+7, SET+1, SET+2*, GETSF+2
^PS(59.7 - [#59.7] BEGIN+6

Label References

Name Line Occurrences
BEGIN BEGIN+9
BOTH BEGIN+10
DONE BEGIN+7, BEGIN+10, BEGIN+11
DTEXST BEGIN+10, RERUN+2
DTQ RERUN+2
GETSF BEGIN+10, BEGIN+11
GETSF1 GETSF1+2, GETSF1+5
RERUN BEGIN+9
SET BOTH+4, BOTH+6
UL BEGIN+9, BOTH+4, BOTH+5

Naked Globals

Name Field # of Occurrence
^( BEGIN+6, BEGIN+8
^(0 BEGIN+8, DTEXST+3, GETSF+2
^(2 SET+1*
^(5 BEGIN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BEGIN+5, BEGIN+9, GETSF1+5, GETSF1+7*, RERUN+1*, RERUN+2*, RERUN+3
%DT GETSF+1!*
%DT("A" GETSF+1*
%DT("B" GETSF+2*
>> %Y RERUN+2
AM DONE+1!
>> DA SET+1*, SET+3*
DIC BEGIN+7*!, DONE+1!
DIC("S" BEGIN+7*
DIC(0 BEGIN+7*
DIK SET+1*!, SET+3*!
DUZ SET+2
EST DONE+1!
FD DONE+1!
FFF DONE+1!
IO("Q" BOTH+4
MES BEGIN+10*, BEGIN+11*, DONE+1!, GETSF+1, GETSF+2, GETSF1, GETSF1+1, GETSF1+2, GETSF1+5
ND BOTH+1*, BOTH+2*, DONE+1!
ND2 BEGIN+7*, BEGIN+8*, BEGIN+9, BEGIN+10, DONE+1!, SET+2, DTEXST+1, RERUN+3*
OG DONE+1!, SET+1, RERUN+3*
OS DONE+1!, RERUN+3*
POP BOTH+5, DONE+1!
PSGDT BEGIN+5*, BEGIN+9, DONE+1!, SET+2
PSGID DONE+1!
PSGION DONE+1!
PSGOD BEGIN+10*, DONE+1!
PSGPLF BEGIN+10*, DONE+1!, SET+2
PSGPLG BEGIN+7*, BEGIN+8*, BOTH+2*, UL+1, DONE+1!, SET+2, SET+3, DTEXST+3, RERUN+1, RERUN+3
, RERUN+4
PSGPLS BEGIN+10, DONE+1!, SET+2, DTEXST+1*, GETSF+2, GETSF1+2, GETSF1+4
PSGPLSF GETSF1+4~*, GETSF1+5
PSGPLWG BEGIN+7*, BEGIN+8, DONE+1!, SET+1, SET+2, GETSF+2
PSGPLWGP BEGIN+7*, DONE+1!, SET+2
PSJPRN BEGIN+6~*
PSJSITE BEGIN+6~*
Q BEGIN+8*, DONE+1!
RERUN BEGIN+5*, BOTH+5, DONE+1!, SET+1, GETSF1, RERUN+3*
ST DONE+1!
U BEGIN+6
X DTEXST+1*, DTEXST+2, GETSF+2*, GETSF1+4~
>> X1 GETSF1+4*
>> X2 GETSF1+4*
XX DONE+1!, DTEXST+1*, DTEXST+2
>> Y BEGIN+7, BEGIN+10, BEGIN+11, DTEXST+1*, DTEXST+2, GETSF+2*, GETSF1, GETSF1+1, GETSF1+2, GETSF1+5
ZTOUT DONE+1!
>> ZTSK BOTH+4
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