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* |
