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 |
