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 |  Local Variables  | All
Print Page as PDF
Routine: PSGPLPRG

Package: Inpatient Medications

Routine: PSGPLPRG


Information

PSGPLPRG ;BIR/CML3-PURGE PICK LISTS ;20 JUL 94 / 5:46 PM

Source Information

Source file <PSGPLPRG.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  NOW^%DTC  YN^DICN  ^DIK  
Inpatient Medications 3 $$ENDTC^PSGMI  (ENCV,ENKV)^PSGSETU  ENNOIO^PSGTI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSJU PLAPS  PSJU PLPRG  

Entry Points

Name Comments DBIA/ICR reference
AP ;
DA ;
DAM ;
ENQ ;
DONE ;
ENASK ; sets, resets, or deletes auto purge (# of days)
QUES ;
KILL ;

External References

Name Field # of Occurrence
^%DT DA+1
NOW^%DTC ENASK+2
YN^DICN KILL+2
^DIK ENQ+4, ENQ+5
$$ENDTC^PSGMI AP+2
ENCV^PSGSETU AP+1, ENASK+1
ENKV^PSGSETU DONE+1
ENNOIO^PSGTI DA+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ", AS OF ",PSGOD
  • Condition for execution: $P(ND,"^",2)
  • Line Location: AP+3
Function Call: WRITE
  • Prompt: " **",!
  • Line Location: AP+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter PURGE STOP DATE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DA+1
Function Call: WRITE
  • Prompt: !!," If a date is entered here, all of the FILED AWAY PICK LISTS that started ",!,"before the entered date will be deleted."
  • Line Location: DAM+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENASK+3
Function Call: WRITE
  • Prompt: !!," If a number is found in this field by the daily background job, the job will completely delete all PICK LISTS that have been FILED AWAY and have been around longer than the number of days specified in this field."
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: " Entering a number into",!,"this field will effectively start the AUTO PURGE. DELETING this field will",!,"effectively STOP the AUTO PURGE."
  • Line Location: QUES+2
Function Call: WRITE
  • Prompt: !?3,"ENTER THE NUMBER (1-90) OF DAYS THAT PICK LISTS THAT ARE FILED AWAY MAY STAY IN THE COMPUTER."
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: " NOTHING TO DELETE!"
  • Line Location: KILL+1
Function Call: WRITE
  • Prompt: !?5,"OK TO DELETE"
  • Line Location: KILL+2
Function Call: WRITE
  • Prompt: " DELETED! (AUTO PURGE STOPPED.)"
  • Line Location: KILL+2
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: KILL+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.5 - [#53.5] ENQ+1, ENQ+2, ENQ+3, ENQ+4!
^PS(53.55 - [#53.55] ENQ+5!
^PS(59.7 - [#59.7] AP+2, ENASK+2, ENASK+4*, KILL+2*

Label References

Name Line Occurrences
DAM DA+1
DONE DA+3, ENASK+5
KILL ENASK+3
QUES ENASK+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENASK+2, KILL+2*
%DT DA+1*, DA+2!
AM DONE+1!
DA ENQ+4!*, ENQ+5!*
DIK ENQ+4!*, ENQ+5!*
DTIME DA+1, ENASK+3
DUZ ENASK+4, KILL+2
ND AP+2*, AP+3, DONE+1!, ENASK+2*, ENASK+3, ENASK+4, KILL+1
PLN ENQ+3*, ENQ+4, ENQ+5, DONE+1!
>> PSGDT ENASK+2*, ENASK+4, KILL+2
>> PSGOD AP+2*, AP+3
PSGPLPD DA+2*, ENQ+2, DONE+1!
>> PSGTID DA+2*
>> PSGTIR DA+2*
>> Q ENQ+1*, ENQ+2, ENQ+3
>> QQ ENQ+2*, ENQ+3
ST DONE+1!
>> X DA+1*, ENASK+3*, ENASK+4, KILL+1*, KILL+3*
>> XQUIT AP+1, ENASK+1
>> Y DA+1*, DA+2
>> ZTDESC DA+2*
>> ZTIO DA+2*
ZTSAVE DA+2!
ZTSAVE("PSGPLPD" DA+2*
>> ZTSK DA+2
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 |  Local Variables  | All