PSJIMO1 ;BIR/LE - IMO UTILITIES AND XREFS ;16 Mar 99 / 10:22 AM
Source file <PSJIMO1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
IMO(CLINICS) | ;called from ENCD^PSGFILED WHICH IS CLINIC DEFINITION OPTION IN INPATIENT MEDS
|
|
IMOSET(PSJCLIN,PSJIMOF,CLINIC) | ;
|
|
IMOKILL(CLINIC,PSCLINIC) | ;
|
|
CIMOU(PSGP,PSJDA55,PSCLINIC,PSJDA531) | ;IMO UNIT DOSE FILE 55 CROSS REFERENCE SET
|
|
CIMOI(DFN,PSJDA55,PSCLINIC,PSJDA531) | ;IMO IV FILE 55 CROSS REFERENCE SET
|
|
KILL531(PSJCLPAT,PSCLINIC,PSJIVIEN) | ;
|
|
GETCLN(PSGP,ORDER) | ; Return Clinic IEN for a given patient/order combination
|
|
CHECK() | ;SET CONDITION FOR CIMOU XREF IN FILE 55
|
|
CHECK2() | ;SET CONDITION FOR CIMOI XREF IN FILE 55
|
|
IMOCHK(PSJIMOCL) | ;determine if clinic is an IMO clinic; returns 1 if IMO or 0 not IMO
|
|
CHECK3() | ;SET CONDITION FOR CIMO XREF IN FILE 53.1
; DA=IEN, X(1)=PATIENT, X(2)=CLINIC |
|
TEST | ;KILL ALL IMO CROSS REFERENCES FOR A PARTICULAR CLINIC AND PATIENT
|
|
TEST2 | ;
|
|
DONE | ;
|
|
CLEAN(DFN) | ;Delete old entriers from clinic order xref; CALLED WHEN USER EXITS PATIENT IN IOE
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^SC - [#44] | GET1^DIQ |
^PS(53.1 - [#53.1] | GET1^DIQ, GETS^DIQ |
^PS(53.46 - [#53.46] | Classic Fileman Calls, GET1^DIQ |
55.01 | GET1^DIQ, GETS^DIQ |
55.06 | GET1^DIQ, GETS^DIQ |