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

Package: Inpatient Medications

Routine: PSJCLOR


Information

PSJCLOR ;BIR/JCH - FIND ORDERS BY CLINIC, CLINIC GROUP, OR PATIENT ; 2/28/12 9:11am

Source Information

Source file <PSJCLOR.m>

Entry Points

Name Comments DBIA/ICR reference
START ; Lookup patient by clinic or patient, depending on value of PSGSS
;
DONE ; Cleanup
DONE2 ; Partial Cleanup
GO ; Find and display matching patients
C ; Select a Clinic
CDIC ; Clinic lookup
DTRANGE() ; Enter Date Range
BEGDT ; begin date
ENDDT(BEG) ; end date
L ; Select a Clinic Group
LDIC ; Clinic Group lookup
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
CL1 ; Check each clinic for valid clinic orders
IF ; If called from CL subroutine and the order Doesn't exist for that Clinic, then QUIT.
IFT2 ; Loop through active IV orders in ^PS(55
SET ; Set patient specific variables for ^TMP subscripts
SETPN ; If searching for specific priority:
; - set patient into ^TMP("PSGBW" sorted by Clnic, Patient Name^IEN^SSN
; If not searching for specific priority:
; - set patient into ^TMP("PSGVBW2" sorted by 'Patient Name^IEN^SSN',
; - 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
EXIT(X) ; Generic user error message
SELECT ; give user choice to select search method
CHK ;
CHK2 ;
HELP ; the following are the help text messages for the various options
GENERIC
VBW
ENCD ;edit Clinic Definitions file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"...a few moments, please..."
  • Line Location: GO+1
Function Call: WRITE
  • Prompt: !,$C(7),"NO ",PSGVBWW," ORDERS FOR SELECTED ",$S(PSGSS="P":"PATIENT",PSGSS="L":"CLINIC GROUP",PSGSS="C":"CLINIC",PSGSS="PR":"PRIORITY",1:"WARD"),$S(PSGSS="G":" GROUP",1:"")
  • Line Location: GO+2
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !!,"Enter the name of the clinic to use to select patients for processing."
  • Line Location: CDIC+7
Function Call: WRITE
  • Prompt: !!?5,"Search for Active and Non-Verified CLINIC Medication Orders"
  • Line Location: BEGDT+1
Function Call: WRITE
  • Prompt: !?5,"that fall within the date range selected below: "
  • Line Location: BEGDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGDT+3
Function Call: WRITE
  • Prompt: " ",FMTX
  • Line Location: BEGDT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDDT+2
Function Call: WRITE
  • Prompt: " ",FMTX
  • Line Location: ENDDT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !!,"Enter the name of the clinic group to use to select patients for processing."
  • Line Location: LDIC+4
Function Call: WRITE
  • Prompt: !!,$C(7),"NO ",PSGVBWW," ORDERS FOR ",CLINAME,!
  • Line Location: CL+5
Function Call: WRITE
  • Prompt: !!,X," not selected, option terminated."
  • Line Location: EXIT+1
Function Call: READ
  • Variable: PSGSS
  • Timeout: DTIME
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !!,"Search by CLINIC (C), CLINIC GROUP (G), or PATIENT (P) : "
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: PSGSS="^"
  • Condition for execution: '$T $C(7) S:'$T!(PSGSS="")
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: $P(X,PSGSSA,2,99)
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !!?2,"To leave this option, press the RETURN key or enter '^'."
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: $P(X,PSGSSA,2,99)
  • Line Location: CHK2+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: CHK2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK2+5
Function Call: WRITE
  • Prompt: !!?2,"To leave this option, press the RETURN key or enter '^'."
  • Line Location: CHK2+5
Function Call: WRITE
  • Prompt: !!,?2,"To run this option for an entire CLINIC, enter 'C'. To run this option for a single PATIENT, enter 'P'."
  • Line Location: GENERIC+0
Function Call: WRITE
  • Prompt: !!?2,"To process orders in a single CLINIC, enter 'C'."
  • Line Location: VBW+0
Function Call: WRITE
  • Prompt: !,"To process orders for a single PATIENT, enter 'P'."
  • Line Location: VBW+1
Function Call: WRITE
  • Prompt: !,"Enter a clinic from the CLINIC DEFINITION file."
  • Line Location: ENCD+1
Function Call: WRITE
  • Prompt: !,"You may also select a clinic from the HOSPITAL LOCATION file."
  • Line Location: ENCD+3

FileMan Files Accessed Via FileMan Db Call

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