PSGVBW ;BIR/CML,MV - VERIFY ORDERS BY WARD, WARD GROUP, PATIENT, OR PRIORITY ;10/22/98 3:14 PM
Source file <PSGVBW.m>
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
|
|
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |