VPSOBJ ;WOIFO/BT - PDO OUTPUT DISPLAY - UTILITIES ;11/20/11 15:30
Source file <VPSOBJ.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 |
---|---|---|
NEW(PATIEN,PDOARY) | ; Object Construction - create a new PDO object
|
|
CLOSE(OREF) | ; Destroy object - clean up pdo
|
|
SETDFN(OREF,VAL) | ; set DFN property
|
|
GETDFN(OREF) | ; get DFN property
|
|
SETPDO(OREF,VAL) | ; set PDOARY property
|
|
GETPDO(OREF) | ; get PDOARY property
|
|
SETLSTMR(OREF,VAL) | ; set LASTMRAR property
|
|
GETLSTMR(OREF) | ; get LASTMRAR property
|
|
SETSTAFF(OREF,VAL) | ; set ISSTAFF property
|
|
GETSTAFF(OREF) | ; get ISSTAFF property
|
|
SETALRNM(OREF,VAL) | ; set ALLRNM (allergy name) property
|
|
GETALRNM(OREF) | ; get ALLRNM property
|
|
SETPATRP(OREF,VAL) | ; set PATRESP (patient response) property
|
|
GETPATRP(OREF) | ; get PATRESP property
|
|
SETSTATN(OREF,VAL) | ; set STATION property
|
|
GETSTATN(OREF) | ; get STATION property
|
|
SETMKFOL(OREF,VAL) | ; set MARKFOL property
|
|
GETMKFOL(OREF) | ; get STATION property
|
|
SETALLR(OREF,VAL) | ; set array of ALLERGIES property
|
|
GETALLR(OREF,VAL) | ; get array of ALLERGIES property
|
|
SETDKNW(OREF,VAL) | ;
|
|
GETDKNW(OREF) | ;
|
|
SETADDVT(OREF,VAL) | ;
|
|
GETADDVT(OREF,VAL) | ;
|
|
SETADDPR(OREF,VAL) | ;
|
|
GETADDPR(OREF,VAL) | ;
|
|
SETADRCT(OREF,VAL) | ;
|
|
GETADRCT(OREF) | ;
|
|
SETADDMF(OREF,VAL) | ;
|
|
GETADDMF(OREF) | ;
|
|
SETADDFV(OREF,VAL) | ;
|
|
GETADDFV(OREF,VAL) | ;
|
|
SETADDFP(OREF,VAL) | ;
|
|
GETADDFP(OREF,VAL) | ;
|
|
SETADDFR(OREF,VAL) | ;
|
|
GETADDFR(OREF,VAL) | ;
|
|
KILNONVA(OREF) | ; Initialize prop
|
|
APDNONVA(OREF,VAL) | ; Append VAL
|
|
GETNONVA(OREF,VAL) | ;
|
|
SETACTIV(OREF,VAL) | ;
|
|
GETACTIV(OREF) | ;
|
|
SETISNVA(OREF,VAL) | ;
|
|
GETISNVA(OREF) | ;
|
|
SETPATCM(OREF,VAL) | ; Patient comments
|
|
GETPATCM(OREF,VAL) | ; Patient comments
|
|
SETNFILL(OREF,VAL) | ; DATE NEXT FILLED
|
|
GETNFILL(OREF) | ; DATE NEXT FILLED
|
|
SETPROV(OREF,VAL) | ; PROVIDER
|
|
GETPROV(OREF) | ; PROVIDER
|
|
SETSIG(OREF,VAL) | ; SIG INSTRUCTION
|
|
GETSIG(OREF,VAL) | ; SIG INSTRUCTION
|
|
SETDSPLY(OREF,VAL) | ; DAYS SUPPLIED
|
|
GETDSPLY(OREF) | ; DAYS SUPPLIED
|
|
SETMFILL(OREF,VAL) | ;
|
|
GETMFILL(OREF) | ;
|
|
SETLREFL(OREF,VAL) | ;
|
|
GETLREFL(OREF) | ;
|
|
SETMREFL(OREF,VAL) | ;
|
|
GETMREFL(OREF) | ;
|
|
SETMTYPE(OREF,VAL) | ; MEDICATION TYPE
|
|
GETMTYPE(OREF) | ; MEDICATION TYPE
|
|
SETREMOT(OREF,VAL) | ;
|
|
GETREMOT(OREF) | ;
|
|
SETMEDNM(OREF,VAL) | ; Med name
|
|
GETMEDNM(OREF) | ; Med Name
|
|
SETRMLOC(OREF,VAL) | ; REMOTE LOCATION
|
|
GETRMLOC(OREF) | ; REMOTE LOCATION
|
|
SETFORMT(OREF) | ; Set column attributes when formatting the note
|
|
GETFORMT(OREF,DEFS) | ; get column attributes when formatting the note
|
|
SETERR(OREF,ERR) | ; set error PROPERTY
|
|
ADDPDO(OREF,STRING) | ; Add STRING to PDO array
|
|
ADDBLANK(OREF) | ; add blank line to PDOARY
|
|
ADDUNDLN(OREF) | ; add underline to PDOARY
|
|
ADDLJ(OREF,STRING) | ; left justify the string before add to PDOARY
|
|
ADDCJ(OREF,STRING) | ; Center justify the string before add to PDOARY
|
|
SET(OREF,PROP,VAL) | ; set property PROP with value VAL
|
|
GET(OREF,PROP) | ; get value from property PROP
|
|
DISFLDS | ; get the attributes of each column when formatting and displaying the lines on the note
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("VPSOBJ" | NEW+3!, NEW+5, CLOSE+1!, SETALLR+1!, SETALLR+2*, GETALLR+1, SETADDVT+1!, SETADDVT+2*, GETADDVT+1, SETADDPR+1! , SETADDPR+2*, GETADDPR+1, SETADDFV+1!, SETADDFV+2*, GETADDFV+1, SETADDFP+1!, SETADDFP+2*, GETADDFP+1, SETADDFR+1!, SETADDFR+2* , GETADDFR+1, KILNONVA+1!, APDNONVA+1*, GETNONVA+1, SETPATCM+1!, SETPATCM+2*, GETPATCM+1, SETFORMT+3!, SETFORMT+4*, GETFORMT+1 , SET+1*, GET+1 |
^TMP("VPSPUTL1" | NEW+2! |
Name | Line Occurrences |
---|---|
$$GET | GETDFN+1, GETPDO+1, GETLSTMR+1, GETSTAFF+1, GETALRNM+1, GETPATRP+1, GETSTATN+1, GETMKFOL+1, GETDKNW+1, GETADRCT+1 , GETADDMF+1, GETACTIV+1, GETISNVA+1, GETNFILL+1, GETPROV+1, GETSIG+1, GETDSPLY+1, GETMFILL+1, GETLREFL+1, GETMREFL+1 , GETMTYPE+1, GETREMOT+1, GETMEDNM+1, GETRMLOC+1, SETERR+1 |
$$GETPDO | ADDPDO+2 |
SET | SETDFN+1, SETPDO+1, SETLSTMR+1, SETSTAFF+1, SETALRNM+1, SETPATRP+1, SETSTATN+1, SETMKFOL+1, SETDKNW+1, SETADRCT+1 , SETADDMF+1, SETACTIV+1, SETISNVA+1, SETNFILL+1, SETPROV+1, SETSIG+1, SETDSPLY+1, SETMFILL+1, SETLREFL+1, SETMREFL+1 , SETMTYPE+1, SETREMOT+1, SETMEDNM+1, SETRMLOC+1, SETERR+3 |
SETDFN | NEW+6 |
SETFORMT | NEW+8 |
SETPDO | NEW+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CJSTR | ADDCJ+1~*, ADDCJ+2 |
DEFS | SETFORMT+1~, SETFORMT+4, SETFORMT+5!, GETFORMT~, GETFORMT+1!* |
DEFS( | SETFORMT+2* |
ERR | SETERR~, SETERR+2, SETERR+3 |
LASTOREF | NEW+5~*, NEW+6, NEW+7, NEW+8, NEW+9 |
LINE | SETFORMT+1~, SETFORMT+2* |
LJSTR | ADDLJ+1~*, ADDLJ+2 |
LN | SETFORMT+1~, SETFORMT+2* |
OREF | CLOSE~, CLOSE+1, SETDFN~, SETDFN+1, GETDFN~, GETDFN+1, SETPDO~, SETPDO+1, GETPDO~, GETPDO+1 , SETLSTMR~, SETLSTMR+1, GETLSTMR~, GETLSTMR+1, SETSTAFF~, SETSTAFF+1, GETSTAFF~, GETSTAFF+1, SETALRNM~, SETALRNM+1 , GETALRNM~, GETALRNM+1, SETPATRP~, SETPATRP+1, GETPATRP~, GETPATRP+1, SETSTATN~, SETSTATN+1, GETSTATN~, GETSTATN+1 , SETMKFOL~, SETMKFOL+1, GETMKFOL~, GETMKFOL+1, SETALLR~, SETALLR+1, SETALLR+2, GETALLR~, GETALLR+1, SETDKNW~ , SETDKNW+1, GETDKNW~, GETDKNW+1, SETADDVT~, SETADDVT+1, SETADDVT+2, GETADDVT~, GETADDVT+1, SETADDPR~, SETADDPR+1 , SETADDPR+2, GETADDPR~, GETADDPR+1, SETADRCT~, SETADRCT+1, GETADRCT~, GETADRCT+1, SETADDMF~, SETADDMF+1, GETADDMF~ , GETADDMF+1, SETADDFV~, SETADDFV+1, SETADDFV+2, GETADDFV~, GETADDFV+1, SETADDFP~, SETADDFP+1, SETADDFP+2, GETADDFP~ , GETADDFP+1, SETADDFR~, SETADDFR+1, SETADDFR+2, GETADDFR~, GETADDFR+1, KILNONVA~, KILNONVA+1, APDNONVA~, APDNONVA+1 , GETNONVA~, GETNONVA+1, SETACTIV~, SETACTIV+1, GETACTIV~, GETACTIV+1, SETISNVA~, SETISNVA+1, GETISNVA~, GETISNVA+1 , SETPATCM~, SETPATCM+1, SETPATCM+2, GETPATCM~, GETPATCM+1, SETNFILL~, SETNFILL+1, GETNFILL~, GETNFILL+1, SETPROV~ , SETPROV+1, GETPROV~, GETPROV+1, SETSIG~, SETSIG+1, GETSIG~, GETSIG+1, SETDSPLY~, SETDSPLY+1, GETDSPLY~ , GETDSPLY+1, SETMFILL~, SETMFILL+1, GETMFILL~, GETMFILL+1, SETLREFL~, SETLREFL+1, GETLREFL~, GETLREFL+1, SETMREFL~ , SETMREFL+1, GETMREFL~, GETMREFL+1, SETMTYPE~, SETMTYPE+1, GETMTYPE~, GETMTYPE+1, SETREMOT~, SETREMOT+1, GETREMOT~ , GETREMOT+1, SETMEDNM~, SETMEDNM+1, GETMEDNM~, GETMEDNM+1, SETRMLOC~, SETRMLOC+1, GETRMLOC~, GETRMLOC+1, SETFORMT~ , SETFORMT+3, SETFORMT+4, GETFORMT~, GETFORMT+1, SETERR~, SETERR+1, SETERR+3, ADDPDO~, ADDPDO+2, ADDBLANK~ , ADDBLANK+2, ADDUNDLN~, ADDUNDLN+2, ADDLJ~, ADDLJ+2, ADDCJ~, ADDCJ+2, SET~, SET+1, GET~ , GET+1 |
PATIEN | NEW~, NEW+6 |
PDOARY | NEW~, NEW+1, NEW+7, SETERR+1~*, SETERR+2, ADDPDO+2~*, ADDPDO+3 |
PROP | SET~, SET+1, GET~, GET+1 |
STR | SETFORMT+1~, SETFORMT+2* |
STRING | ADDPDO~, ADDPDO+1, ADDPDO+3, ADDBLANK+1~*, ADDBLANK+2, ADDUNDLN+1~*, ADDUNDLN+2, ADDLJ~, ADDLJ+1, ADDCJ~ , ADDCJ+1 |
U | SETFORMT+2 |
VAL | SETDFN~, SETDFN+1, SETPDO~, SETPDO+1, SETLSTMR~, SETLSTMR+1, SETSTAFF~, SETSTAFF+1, SETALRNM~, SETALRNM+1 , SETPATRP~, SETPATRP+1, SETSTATN~, SETSTATN+1, SETMKFOL~, SETMKFOL+1, SETALLR~, SETALLR+2, GETALLR~, GETALLR+1!* , SETDKNW~, SETDKNW+1, SETADDVT~, SETADDVT+2, GETADDVT~, GETADDVT+1!*, SETADDPR~, SETADDPR+2, GETADDPR~, GETADDPR+1!* , SETADRCT~, SETADRCT+1, SETADDMF~, SETADDMF+1, SETADDFV~, SETADDFV+2, GETADDFV~, GETADDFV+1!*, SETADDFP~, SETADDFP+2 , GETADDFP~, GETADDFP+1!*, SETADDFR~, SETADDFR+2, GETADDFR~, GETADDFR+1!*, APDNONVA~, APDNONVA+1, GETNONVA~, GETNONVA+1!* , SETACTIV~, SETACTIV+1, SETISNVA~, SETISNVA+1, SETPATCM~, SETPATCM+2, GETPATCM~, GETPATCM+1!*, SETNFILL~, SETNFILL+1 , SETPROV~, SETPROV+1, SETSIG~, SETSIG+1, GETSIG~, SETDSPLY~, SETDSPLY+1, SETMFILL~, SETMFILL+1, SETLREFL~ , SETLREFL+1, SETMREFL~, SETMREFL+1, SETMTYPE~, SETMTYPE+1, SETREMOT~, SETREMOT+1, SETMEDNM~, SETMEDNM+1, SETRMLOC~ , SETRMLOC+1, SET~, SET+1 |
Name | Field # of Occurrence |
---|---|
$T(DISFLDS+LN | SETFORMT+2 |