PSXUTL ;BIR/BAB,WPB,HTW-Utility Subroutines ;14 Feb 2002 2:27 PM
Source file <PSXUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HEX | ;converts decimal #<128 to a two byte hex #
|
|
| FLUSH1 | ||
| CHKA | ||
| CHKB | ||
| CHKD | ||
| CHKE | ||
| CHK | ||
| LOG | ;create a log entry in the CMOP INTERFACE file
|
|
| TSOUT | ;convert current date time to HL7 timestamp
|
|
| TSIN | ;convert an HL7 timestamp to fileman format
|
|
| STATUS | ;display CMOP status for entry action on RX menu
|
|
| EXIT | ||
| DRUGW | ;
|
|
| DRG | ;
|
|
| UNMARK | ;Entry point to unmark drug for CMOP dispense
|
|
| RALRT | ||
| SETVER | ||
| ALRT | ||
| GETS(FILE,IENS,DR,FORM,TARG,ERR) | ;
|
|
| IENS(IENS) | ;Resolve IENS to numbers X,Y,Z to 89,34,345
|
|
| TOP(TARGROOT) | ; Move to the top the returned DIQ array
; Move array(file,iens,field)=value to array(field)=value ; also moves the ,field,"I") =value(internal) to (field)=value(internal) |
|
| PIECE(REC,DLM,XX) | ; where XX = VAR_U_I ex: XX="PATNM^1"
; Set VAR = piece I of REC using delimiter DLM |
|
| SET(REC,DLM,ABCD) | ; where XX = VAR_U_I ex: XX="PATNM^1"
; Set VAR into piece I of REC using delimiter DLM |
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
