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

Package: Outpatient Pharmacy

Routine: PSOUTOR


Information

PSOUTOR ;HPS/DSK - MEDICATION ORDER STATUS CHECK; Oct 22, 2024@10:20

Source Information

Source file <PSOUTOR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Status Mismatch Search
ASK ;
VER ;
QUIT ;
TASK ;
INIT ;
SEARCH ;
NONVA ;Non-VA medication order evaluation
OP ;Outpatient medication order evaluation
IV ;IV order search
UD ;Inpatient (unit dose) order search
FOUND ;
XTMP(PSOTX,PSOWHICH) ;
ALERT ;
KILL ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NOTE: Because of the potential for journaling or other system"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"issues, you may not want to search large date ranges at one time."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"This search routine limits the search to a year's worth of orders,"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"but that might still be too large of a date range depending on"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"your order volume.",!
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: ?40,$G(Y)
  • Line Location: ASK+10
Function Call: WRITE
  • Prompt: !,?5,"The start date cannot be greater than the end date.",!
  • Line Location: ASK+16
Function Call: WRITE
  • Prompt: ?40,$G(Y)
  • Line Location: ASK+17
Function Call: WRITE
  • Prompt: !!,"A maximum of a year's worth of orders may be searched due to"
  • Line Location: ASK+19
Function Call: WRITE
  • Prompt: !,"potential journaling or other system issues."
  • Line Location: ASK+20
Function Call: WRITE
  • Prompt: !!,"Search Inpatient, Outpatient, Non-VA, or a combination of order types?"
  • Line Location: ASK+21
Function Call: WRITE
  • Prompt: !,"(IV Medications are included in an Inpatient search.)"
  • Line Location: ASK+22
Function Call: WRITE
  • Prompt: !,"(""Inpatient"" and ""Outpatient"" refer to the order dialog used,"
  • Line Location: ASK+23
Function Call: WRITE
  • Prompt: !," not the patient's status.)"
  • Line Location: ASK+24
Function Call: WRITE
  • Prompt: !!,"INSTRUCTIONS FOR NEXT PROMPT"
  • Line Location: ASK+31
Function Call: WRITE
  • Prompt: !,"============================"
  • Line Location: ASK+32
Function Call: WRITE
  • Prompt: !!," * If a medication is expired or discontinued in the associated"
  • Line Location: ASK+33
Function Call: WRITE
  • Prompt: !," medication file (PRESCRIPTION (#52) file or PHARMACY PATIENT (#55) file)"
  • Line Location: ASK+34
Function Call: WRITE
  • Prompt: !," this routine could correct the ORDERS (#100) file status to expired"
  • Line Location: ASK+35
Function Call: WRITE
  • Prompt: !," or discontinued if the ORDERS (#100) file status is active."
  • Line Location: ASK+36
Function Call: WRITE
  • Prompt: !!," * Initially answer the prompt ""Should the status in the ORDERS (#100) file"
  • Line Location: ASK+37
Function Call: WRITE
  • Prompt: !," be corrected automatically?"" with ""NO"" to let the routine search to see"
  • Line Location: ASK+38
Function Call: WRITE
  • Prompt: !," how many affected orders exist per date range. Then check a few in CPRS"
  • Line Location: ASK+39
Function Call: WRITE
  • Prompt: !," and FileMan."
  • Line Location: ASK+40
Function Call: WRITE
  • Prompt: !!," * After running the search option again and answering the following prompt"
  • Line Location: ASK+41
Function Call: WRITE
  • Prompt: !," with ""Y"", verify that those orders have been corrected."
  • Line Location: ASK+42
Function Call: WRITE
  • Prompt: !!,"Should the status in the ORDERS (#100) file"
  • Line Location: ASK+43
Function Call: WRITE
  • Prompt: !!,"PLEASE VERIFY:",!
  • Line Location: VER+1
Function Call: WRITE
  • Prompt: !,?5,"Date to begin search: "
  • Line Location: VER+2
Function Call: WRITE
  • Prompt: ?34,Y
  • Line Location: VER+3
Function Call: WRITE
  • Prompt: !,?5,"Date to end search: "
  • Line Location: VER+4
Function Call: WRITE
  • Prompt: ?34,Y
  • Line Location: VER+5
Function Call: WRITE
  • Prompt: !!,?5,"Type(s) of orders to search: ",PSOAR(PSOTYP)
  • Line Location: VER+6
Function Call: WRITE
  • Prompt: !!,?5,"ORDERS (#100) file status ",$S(PSOCORR:"*** WILL ***",1:"*** WILL NOT ***")," be corrected automatically.",!
  • Line Location: VER+7
Function Call: WRITE
  • Prompt: !
  • Line Location: VER+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: VER+11
Function Call: WRITE
  • Prompt: !!,"Exiting... Re-enter option if you wish to perform the search."
  • Line Location: QUIT+9
Function Call: WRITE
  • Prompt: !!,"There will be no MailMan message and alert generated"
  • Line Location: QUIT+10
Function Call: WRITE
  • Prompt: !,"due to early termination of this option.",!!
  • Line Location: QUIT+11
Function Call: WRITE
  • Prompt: !!,"You will receive an alert and a MailMan message when the search completes.",!
  • Line Location: TASK+12
Info |  Source |  Entry Points |  Interaction Calls