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

Package: Inpatient Medications

Routine: PSGVBW


Information

PSGVBW ;BIR/CML,MV - VERIFY ORDERS BY WARD, WARD GROUP, PATIENT, OR PRIORITY ;10/22/98 3:14 PM

Source Information

Source file <PSGVBW.m>

Entry Points

Name Comments DBIA/ICR reference
START ; Lookup patient by ward group, ward, priority, or patient; depending on value of PSGSS
;
DONE ; Cleanup
DONE2 ; Partial Cleanup
GO ; Find and display matching patients
  • ICR #2169
    • Status: Pending
    • Usage: Private
    G ; Select a Ward Group
    GDIC ; Ward Group lookup
    C ; Select a Clinic
    CDIC ; Clinic lookup
    L ; Select a Clinic Group
    LDIC ; Clinic Group lookup
    W ; Select a Ward
    WDIC ; Ward lookup
    PR ; Select order priority
    P ; Select patient
    ARRAY ; put patient(s) with non-verified orders into array
    CG ; Find all clinics in selected clinic group
    CL ; Find all patients in selected clinic
    WD ; Find all patients in selected ward
    PRI ; Find orders with selected Priority
    ; Once a patient is identified in any status index ("I", "N", or "P"), all orders for that patient are checked in the
    ; IF subroutine. To prevent unnecessary duplication of processing, "PSGVBW3" node of ^TMP, sorted by patient, will be
    ; set when a patient's orders are processed, and checked for each status index. If patient exists in the "PSGVBW3" node,
    ; patient has already been processed, so quit.
    IF ;BHW;PSJ*5*155;Added PSGCLF and PS(53.1,"AD" Check below. If called from CL subroutine and the order Doesn't exist for that Clinic, then QUIT.;PSJ*5*241:Changed quit conditions
    IFT ; Loop through active UD orders in ^PS(55 that have not been verified by pharmacist.
    IFT2 ; Loop through active IV orders in ^PS(55 that have not been verified by pharmacist.
    SET ; Set patient specific variables for ^TMP subscripts
    SETPN ; If searching for specific priority:
    ; - set patient into ^TMP("PSGBW" sorted by Priority Name, Priority #, Team, Patient Name^IEN^SSN
    ; If not searching for specific priority:
    ; - set patient into ^TMP("PSGVBW2" sorted by 'Patient Name^IEN^SSN', then Priority
    ; - set patient into ^TMP("PSGVBW3" sorted by Patient IEN
    SET2 ; If not searching for a specific priority,find the highest priority order associated with patient.
    ; Set the patient into ^TMP("PSGVBW" sorted by highest Priority Name, Priority #, Team, Patient Name^IEN^SSN
    GTOOP ; Get 'Type Of Order' and Package
    GTPAC ; Prompt user for Package
    EXIT(X) ; Generic user error message
    TOH ; Help text

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"...a few moments, please..."
    • Line Location: GO+2
    Function Call: WRITE
    • Prompt: !,$C(7),"NO ",PSGVBWW," ORDERS FOR ",$S(PSGSS="P":"PATIENT",PSGSS="L":"CLINIC GROUP",PSGSS="C":"CLINIC",PSGSS="PR":"PRIORITY",1:"WARD"),$S(PSGSS="G":" GROUP",1:"")," SELECTED."
    • Line Location: GO+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: G+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: C+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: L+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: W+2
    Function Call: WRITE
    • Prompt: !!,"1) Non-Verified Orders",!,"2) Pending Orders",!!
    • Line Location: GTOOP+2
    Function Call: WRITE
    • Prompt: !!,"1) Unit Dose Orders",!,"2) IV Orders",!
    • Line Location: GTPAC+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: GTPAC+4
    Function Call: WRITE
    • Prompt: !!,X," not selected, option terminated."
    • Line Location: EXIT+1
    Function Call: WRITE
    • Prompt: !!,"SELECT FROM:",!?5,"1 - NON-VERIFIED ORDERS",!?5,"2 - PENDING ORDERS"
    • Line Location: TOH+1
    Function Call: WRITE
    • Prompt: !!?2,"Enter '1' if you want to verify non-verified orders. Enter '2' if you",!,"want to complete pending orders. Enter '1,2' or '1-2' if you want to do both."
    • Line Location: TOH+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DIC(42 - [#42] Classic Fileman Calls
    ^SC - [#44] Classic Fileman Calls
    ^PS(57.5 - [#57.5] Classic Fileman Calls
    ^PS(57.8 - [#57.8] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call