Routine: VPSOBJ

Package	Total	Call Graph
VA Point of Service	2	ADDPDO^VPSOBJ ADDLN^VPSPUTL1
Kernel	1	($$CJ,$$LJ,$$REPEAT)^XLFSTR

Package	Total	Caller Graph
VA Point of Service	7	VPSOBJ VPSPDO1 VPSPDO1M VPSPDO2 VPSPDO2M VPSPDO3M VPSSRVY3

Entry Points

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

External References

Name	Field # of Occurrence
ADDPDO^VPSOBJ	ADDBLANK+2, ADDUNDLN+2, ADDLJ+2, ADDCJ+2
ADDLN^VPSPUTL1	ADDPDO+3
$$CJ^XLFSTR	ADDCJ+1
$$LJ^XLFSTR	ADDLJ+1
$$REPEAT^XLFSTR	ADDUNDLN+1

Global Variables Directly Accessed

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!

Label References

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

Local Variables

Legend:

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

Marked Items

Name	Field # of Occurrence
$T(DISFLDS+LN	SETFORMT+2

Customize PDF page

Package: VA Point of Service

Routine: VPSOBJ

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items