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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call