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

Package: Inpatient Medications

Routine: PSGPO


Information

PSGPO ;BIR/CML3-PURGE PATIENT'S ORDERS ; 15 May 98 / 10:42 AM

Source Information

Source file <PSGPO.m>

Entry Points

Name Comments DBIA/ICR reference
ENQ ;
DONE ;
DIK ;
DTM ;
EDATE ;
ENRX ; re-index 55 to be able to purge UD orders (AUDDD x-ref)
RX1 ;
ENDS ; delete single order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"THERE ARE NO ORDERS TO PURGE AT THIS TIME."
  • Line Location: PSGPO+2
Function Call: WRITE
  • Prompt: !!,"THERE ARE PICK LISTS THAT NEED TO BE FILED AWAY THAT MAY CONTAIN THESE ORDERS.",!
  • Line Location: PSGPO+3
Function Call: READ
  • Formatting: !!
  • Prompt: "PURGE ORDERS FOR PATIENTS DISCHARGED BEFORE WHAT DATE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: PSGPO+5
Function Call: WRITE
  • Prompt: !!,"This purge will automatically be queued."
  • Line Location: PSGPO+6
Function Call: WRITE
  • Prompt: !?3,"No device selected for purge run."
  • Line Location: PSGPO+7
Function Call: WRITE
  • Prompt: !!," If a date is entered here, all orders for patients discharged before the date entered will be purged (deleted) from the computer. Please note that any orders for any patients admitted after the date entered will NOT be affected."
  • Line Location: DTM+1
Function Call: WRITE
  • Prompt: !," The earliest discharge date found is ",PSGOD,!
  • Line Location: DTM+2
Function Call: READ
  • Prompt: !!
  • Variable: "DO YOU WANT TO DISCONTINUE THIS ORDER" S %=1 D YN^DICN Q
  • Timeout: %
  • Line Location: ENDS+1
Function Call: WRITE
  • Prompt: !!?2,"Answer 'Y' to d/c this order now. (It will be deleted immediately.)",!,"Answer 'N' (or '^') to not d/c the order."
  • Line Location: ENDS+1
Function Call: WRITE
  • Prompt: !?3,"...one moment, please..."
  • Line Location: ENDS+3
Function Call: WRITE
  • Prompt: !?3,"...one moment, please..."
  • Line Location: ENDS+4
Function Call: WRITE
  • Prompt: ".DONE!"
  • Line Location: ENDS+5
Info |  Source |  Entry Points |  Interaction Calls