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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 4 $$ENDTC^PSGMI  (ENCV,ENKV)^PSGSETU  ENTSK^PSGTI  EN1^PSJHL2  
VA Fileman 4 ^%DT  (C,NOW)^%DTC  YN^DICN  ^DIK  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGOE1  

Entry Points

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

External References

Name Field # of Occurrence
^%DT PSGPO+5
C^%DTC PSGPO+3
NOW^%DTC ENRX+1, RX1+5
^%ZIS PSGPO+6, PSGPO+7, ENQ+5
YN^DICN ENDS+1
^DIK DIK+1, ENDS+5
$$ENDTC^PSGMI PSGPO+4
ENCV^PSGSETU PSGPO+2
ENKV^PSGSETU DONE+1
ENTSK^PSGTI PSGPO+8, ENQ+5
EN1^PSJHL2 ENDS+4

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
  • Prompt: "PURGE ORDERS FOR PATIENTS DISCHARGED BEFORE WHAT DATE: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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: !!
  • Timeout: %
  • Variable: "DO YOU WANT TO DISCONTINUE THIS ORDER" S %=1 D YN^DICN Q
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • PSGPO+6
    • PSGPO+7
    • ENQ+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.43 - [#53.43] ENQ+1, ENQ+2*, ENQ+3, DIK+1
^PS(53.5 - [#53.5] PSGPO+3, EDATE+1, EDATE+2
^PS(55 - [#55] PSGPO+2, ENQ+4, DIK+1!, ENRX+1!, RX1+1*, RX1+5*, RX1+6, ENDS+4

Label References

Name Line Occurrences
DIK ENQ+4
DONE PSGPO+3, PSGPO+6, PSGPO+7, PSGPO+8
DTM PSGPO+5
EDATE PSGPO+3
RX1 ENRX+1

Naked Globals

Name Field # of Occurrence
^( EDATE+1, ENRX+1, RX1+1, RX1+6*
^("AF" PSGPO+3
^(0 DIK+1*, EDATE+2, RX1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RX1+5, ENDS+1*, ENDS+2, ENDS+6!
%DT PSGPO+5!*
%DT(0 PSGPO+5*
%Y ENDS+6!
%ZIS PSGPO+6!*, ENQ+5!*
%ZIS("A" PSGPO+6*
%ZIS("B" PSGPO+6*
A ENRX+2!
AM DONE+1!
>> D1 RX1+5, RX1+6
DA ENQ+4*, DIK+1, ENDS+4~, ENDS+5*
DA(1 ENQ+4*, DIK+1, ENDS+5*
DIK DIK+1*, ENDS+4~, ENDS+5*
>> DL RX1+5*
DTIME PSGPO+5
EDATE PSGPO+3*, PSGPO+5, DONE+1!, EDATE+1*, EDATE+2*
H ENQ+5*, DONE+1!
IO("Q" PSGPO+6!
ION PSGPO+6, PSGPO+8
IOP PSGPO+6!, PSGPO+7*, ENQ+5*
>> ND ENQ+1*, ENQ+2*
>> ON RX1+1*
>> P ENRX+1*, RX1+1, RX1+5, RX1+6
POD PSGPO+2*!, PSGPO+3, PSGPO+4, DONE+1!
>> POP PSGPO+7
>> PSGCANFL ENDS+5*
>> PSGION PSGPO+6*, PSGPO+7
PSGJ ENQ+5*, DONE+1!
>> PSGOD PSGPO+4*, DTM+2
>> PSGORD ENDS+4, ENDS+5
>> PSGP ENDS+4, ENDS+5
PSGPO ENQ+4*, DONE+1!, DIK+1, ENDS+4~, ENDS+5*
PSGPOD PSGPO+8*, ENQ+4, DONE+1!
PSGPOIO PSGPO+8*, ENQ+5, DONE+1!
>> PSGTID ENQ+5*
>> PSGTIR PSGPO+8*, ENQ+5*
>> Q RX1+5*
>> QQ RX1+5*
>> RDA ENQ+2*, ENQ+5, DIK+1
ST DONE+1!
TRTN DONE+1!
U RX1+1, ENDS+4
>> X PSGPO+3, PSGPO+5*, EDATE+1*, EDATE+2*
>> X1 PSGPO+3*
>> X2 PSGPO+3*
>> XQUIT PSGPO+2
>> Y PSGPO+4*, PSGPO+5, PSGPO+6, PSGPO+8, EDATE+1*, EDATE+2*
>> ZTDESC PSGPO+8*, ENQ+5*
>> ZTIO PSGPO+8*
ZTOUT DONE+1!
ZTSAVE PSGPO+8!, ENQ+5!
ZTSAVE("PSGJ" ENQ+5*
ZTSAVE("PSGPOD" PSGPO+8*, ENQ+5*
ZTSAVE("PSGPOIO" PSGPO+8*
>> ZTSK PSGPO+8, ENQ+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All