VPSPUTL1 ;DALOI/KML - PDO OUTPUT DISPLAY - UTILITIES ;11/20/11 15:30
Source file <VPSPUTL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETFLD(STR,VAR,COLATTR) | ; -- set field in var
; INPUT ; STR : string to insert ; VAR : destination string ; COLATTR : column attributes |
|
| SETSTR(S,V,X,L) | ; -- insert text(S) into variable(V)
; INPUT ; S : string to insert ; V : destination string ; X : insert @ col X ; L : clear # of chars (length) |
|
| ADDLN(PDONOTE,STR) | ; add a line to note
; INPUT ; PDONOTE : global or local array containing the lines of the note ; STR : string of data that gets assigned to a subscript in the local or global array (PDONOTE) |
|
| PDOERR(LMRARDT,PTIEN) | ; update PDO INVOCATION ERROR field when PDO was requested after the PDO INVOCABLE PERIOD
; INPUT: ; LMRARDT = Fileman date representing the last MRAR on record ; PTIEN = DFN |
|
| FCOMM(COM,WIDTH,NCOM) | ; reformat comments to to fit in column on note
; INPUT ; COM : comments array ; WIDTH : amount of characters available for column ; OUTPUT ; NCOM : array built with the re-formatted contents of COM ; ^TMP("VPSPUTL1",$J) = maintain overall counter for comment reformatting purposes |
|
| REACT(STAFF,LMRARDT,PTIEN,A2,COL,FLD03,NCOMM) | ; format allergy reactions
; INPUT ; STAFF : is MRAR staff-facing interface ? ; LMRARDT : Fileman date representing the last MRAR on record ; PTIEN : DFN ; A2 : allergy sub-entry ien ; COL : COLUMN ATTRIBUTE ARRAY used when formatting the string for each line on the note ; FLD03 : array of reactions ; INPUT/OUTPUT: ; NCOMM : reactions and staff facing comments array formatted for display on PDO ouput ; |
|
| ALLCOMM(LMRARDT,PTIEN,A2,COL,ARRAY) | ; format allergy section comments from staff-facing
; INPUT ; LMRARDT : Fileman date representing the last MRAR on record ; PTIEN : DFN ; A2 : allergy sub-entry ien ; COL : COLUMN ATTRIBUTE ARRAY used when formatting the string for each line on the note ; INPUT/OUTPUT ; ARRAY - reactions AND staff facing comments array formatted for display on PDO ouput |
|
| SIG(LMRARDT,PTIEN,FLD13,COL,SIG) | ; format patient instructions
; INPUT: ; LMRARDT = Fileman date representing the last MRAR on record ; PTIEN = DFN ; FLD13 - patient instructions (sig) at 853.54,13 ; COL - COLUMN ATTRIBUTE ARRAY used when formatting the string for each line on the note ; INPUT/OUTPUT: ; SIG - patient instructions formatted in an array for display on PDO output |
|
| GCOMM(LMRARDT,PTIEN,MIEN,STAFF,COL,PATCOMM) | ; get unstructured comment fields and reformat to fit TIU note
; per PROVIDER FACING OUTPUT requirements; comments have a specific display format ; unstructured comments from patient facing and provider facing (staff view and vet view) can exist and are stored as discrete fields in 853.54 sub=file ; the potential exists for all 3 fields to be sent in a single MRAR session and comments about a medication need to be displayed at a specific column when ; displaying the MRAR PDO. ; INPUT: ; LMRARDT = Fileman date representing the last MRAR on record ; PTIEN = DFN ; MIEN - medication sub-entry ien ; STAFF - output represents content coming from staff-facing interface ; COL - COLUMN ATTRIBUTE ARRAY used when formatting the string for each line on the note ; INPUT/OUTPUT: ; PATCOMM - array built in this procedure that reformats word processing fields from 853.54 to fit into PDO OUTPUT (tiu note) |
