VPSPUTL1 ;DALOI/KML - PDO OUTPUT DISPLAY - UTILITIES ;11/20/11 15:30
Source file <VPSPUTL1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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) |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("VPSPUTL1" | FCOMM+8, FCOMM+9, FCOMM+18*, REACT+16*, SIG+11*, GCOMM+64* |
Name | Line Occurrences |
---|---|
$$SETSTR | SETFLD+5 |
ALLCOMM | REACT+15 |
FCOMM | REACT+13, REACT+16, ALLCOMM+11, ALLCOMM+15, SIG+12, GCOMM+21, GCOMM+27, GCOMM+28, GCOMM+29, GCOMM+36 , GCOMM+37, GCOMM+42, GCOMM+43, GCOMM+50, GCOMM+56, GCOMM+62, GCOMM+64 |
Name | Field # of Occurrence |
---|---|
^($J | FCOMM+8* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A2 | REACT~, REACT+15, ALLCOMM~, ALLCOMM+10, ALLCOMM+14 |
ARRAY | REACT+11~, REACT+14*, REACT+15, REACT+16, ALLCOMM~, ALLCOMM+12*, ALLCOMM+16* |
C1 | FCOMM+7~, FCOMM+9*, FCOMM+10*, FCOMM+14 |
COL | REACT~, REACT+15, ALLCOMM~, SIG~, GCOMM~ |
COL("COMMENTS" | GCOMM+21, GCOMM+27, GCOMM+28, GCOMM+29, GCOMM+36, GCOMM+37, GCOMM+42, GCOMM+43, GCOMM+50, GCOMM+56 , GCOMM+62, GCOMM+64 |
COL("REACTION" | REACT+13, REACT+16, ALLCOMM+11, ALLCOMM+15 |
COL("SIG" | SIG+12, SIG+13 |
COLATTR | SETFLD~, SETFLD+5 |
COM | FCOMM~ |
COM( | FCOMM+10, FCOMM+14 |
COMMENTS | ALLCOMM+9~, ALLCOMM+10*, ALLCOMM+11, ALLCOMM+13!, ALLCOMM+14*, ALLCOMM+15 |
COMMENTS(1 | ALLCOMM+11*, ALLCOMM+15* |
CTR | FCOMM+7~, FCOMM+9*, FCOMM+13*, FCOMM+14*, FCOMM+15, FCOMM+16, FCOMM+18 |
END | FCOMM+7~, FCOMM+12*, FCOMM+14, FCOMM+16*, FCOMM+17* |
FLD03 | REACT~, REACT+13 |
FLD13 | SIG~, SIG+10 |
FLD23 | GCOMM+13~, GCOMM+15*, GCOMM+18, GCOMM+21, GCOMM+24, GCOMM+27, GCOMM+33, GCOMM+36, GCOMM+41, GCOMM+47 , GCOMM+50, GCOMM+54, GCOMM+60 |
FLD23( | GCOMM+19, GCOMM+25, GCOMM+26*, GCOMM+34, GCOMM+35*, GCOMM+48, GCOMM+49* |
FLD23(1 | GCOMM+20*, GCOMM+26*, GCOMM+35*, GCOMM+49* |
FLD24 | GCOMM+13~, GCOMM+16*, GCOMM+24, GCOMM+28, GCOMM+33, GCOMM+37, GCOMM+41, GCOMM+42, GCOMM+47, GCOMM+54 , GCOMM+56, GCOMM+60 |
FLD24(1 | GCOMM+28*, GCOMM+37*, GCOMM+42*, GCOMM+55* |
FLD25 | GCOMM+13~, GCOMM+17*, GCOMM+24, GCOMM+29, GCOMM+33, GCOMM+41, GCOMM+43, GCOMM+47, GCOMM+54, GCOMM+60 , GCOMM+62 |
FLD25(1 | GCOMM+29*, GCOMM+43*, GCOMM+61* |
L | SETSTR~, SETSTR+6, ADDLN+4~, ADDLN+5*, ADDLN+6 |
LMRARDT | PDOERR~, PDOERR+5, REACT~, REACT+15, ALLCOMM~, ALLCOMM+10, ALLCOMM+14, SIG~, GCOMM~, GCOMM+15 , GCOMM+16, GCOMM+17 |
LSS | GCOMM+13~, GCOMM+25*, GCOMM+26, GCOMM+34*, GCOMM+35, GCOMM+48*, GCOMM+49 |
MIEN | GCOMM~, GCOMM+15, GCOMM+16, GCOMM+17 |
NCOM | FCOMM~ |
NCOM( | FCOMM+14*, FCOMM+15!, FCOMM+16 |
NCOMM | REACT~, REACT+12!, REACT+16 |
NFLD23 | GCOMM+13~, GCOMM+27, GCOMM+30, GCOMM+36, GCOMM+38, GCOMM+50, GCOMM+51 |
NFLD24 | GCOMM+13~, GCOMM+28, GCOMM+30, GCOMM+37, GCOMM+38, GCOMM+42, GCOMM+44, GCOMM+56, GCOMM+57 |
NFLD25 | GCOMM+13~, GCOMM+29, GCOMM+30, GCOMM+43, GCOMM+44, GCOMM+62, GCOMM+63 |
PATCOMM | GCOMM~, GCOMM+21, GCOMM+64 |
PDONOTE | ADDLN~, ADDLN+5, ADDLN+6 |
PSIG | SIG+9~, SIG+12 |
PSIG(1 | SIG+10* |
PTIEN | PDOERR~, PDOERR+5, REACT~, REACT+15, ALLCOMM~, ALLCOMM+10, ALLCOMM+14, SIG~, GCOMM~, GCOMM+15 , GCOMM+16, GCOMM+17 |
QUIT | FCOMM+7~, FCOMM+11*, FCOMM+14, FCOMM+15*, FCOMM+16* |
QUOTE | GCOMM+13~, GCOMM+14*, GCOMM+26, GCOMM+35, GCOMM+49 |
S | SETSTR~, SETSTR+6 |
SAV | FCOMM+7~, FCOMM+12, FCOMM+13, FCOMM+16* |
SIG | SIG~, SIG+8!, SIG+12 |
SIG(2 | SIG+13* |
SIG(3 | SIG+13 |
STAFF | REACT~, REACT+15, GCOMM~, GCOMM+18 |
START | FCOMM+7~, FCOMM+11*, FCOMM+14, FCOMM+17* |
STR | SETFLD~, SETFLD+5, ADDLN~, ADDLN+6 |
TEMP | REACT+11~, REACT+13, REACT+14, ALLCOMM+9~, ALLCOMM+11, ALLCOMM+12, ALLCOMM+13!, ALLCOMM+15, ALLCOMM+16, GCOMM+13~ , GCOMM+30*, GCOMM+38*, GCOMM+44*, GCOMM+51*, GCOMM+57*, GCOMM+63*, GCOMM+64 |
U | SETFLD+5, REACT+13, REACT+16, ALLCOMM+11, ALLCOMM+15, SIG+12, SIG+13, GCOMM+21, GCOMM+27, GCOMM+28 , GCOMM+29, GCOMM+36, GCOMM+37, GCOMM+42, GCOMM+43, GCOMM+50, GCOMM+56, GCOMM+62, GCOMM+64 |
V | SETSTR~, SETSTR+6 |
VAR | SETFLD~, SETFLD+5 |
VPSFDA | PDOERR+4~ |
VPSFDA( | PDOERR+5* |
WIDTH | FCOMM~, FCOMM+12, FCOMM+16, FCOMM+17 |
X | SETSTR~, SETSTR+6, GCOMM+34* |
XXX | GCOMM+13~, GCOMM+19*, GCOMM+25*, GCOMM+48* |