PSJUTL1 ;BIR/MLM-MISC. INPATIENT UTILITIES ;29 Jul 98 / 4:29 PM
Source file <PSJUTL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CONVERT(DFN,TYPE) | ;
; Convert existing UD orders to new format. Only run once/patient, and ; only converts orders with a stop date<(5.0 Install date-365) ; DFN = Patient IEN ; TYPE = Background or Interactive mode |
|
| NFWS(DFN,ON,PSJPWD) | ||
| CHKDD | ; Determine if dispense drug is NF or WS
|
|
| FIND | ;
|
|
| CNV(PSJM) | ||
| CNV2(IEN507) | ||
| CNIV(DFN) | ||
| CNIV1(DFN) | ||
| IVCHK | ;Match AD/SOL against Xtmp
|
|
| MATCH | ;If AD/SOL from XTMP matches to AD/SOL within the order, set new OI array
|
|
| UPD(ON) | ;Loop thru the new OI array
|
|
| PENDING | ;Converting Pending IV order with Ad/Sol
|
|
| SEND | ;Send mail message
|
|
| PSSDGCK | ;Run Drug Check Util
|
|
| INSTLDT() | ;Return the date PSJ*5*58 was first installed
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PS(53.1 - [#53.1] | Classic Fileman Calls |
| ^PS(55 - [#55] | Classic Fileman Calls |
| ^XPD(9.7 - [#9.7] | Classic Fileman Calls |
