Routine: VPR1P37

Package	Total	Call Graph
Kernel	4	^%ZTLOAD ($$FMADD,$$NOW)^XLFDT $$UP^XLFSTR ($$INSTALDT,BMES,MES)^XPDUTL
Virtual Patient Record	3	$$MERGED^VPRHS HFS^VPRSDAHX PS1^VPRSDAP
General Medical Record - Vitals	1	EN1^GMRVUT0
MailMan	1	^XMD
Master Patient Index VistA	1	$$GETICN^MPIF001
Registration	1	$$SITE^VASITE

Entry Points

Name	Comments	DBIA/ICR reference
ENV	;Main entry point for Environment check point.
PROGCHK(XPDABORT)	;checks for necessary programmer variables
EN(START,STOP,TYPE,FMT,PAT,VPRY)	; -- entry point to test CTP
PATCH(P)	; -- return patch P installation date
CTP	; -- main loops,called from VPRZCTP on HealthShare ; Expects VPRBDT,VPREDT,VPRTYPE,VPRPAT,VPRN
ICN(DFN)	; -- return ICN or -1^invalid
ICQ	;exit
POST(TYPE,ID,ACT,VST)	; -- post an update to ; @VPRY@(SEQ) = ICN ^ TYPE ^ ID ^ U/D ^ VISIT# ^ DFN
OBS	; -- Vital Observations updated Observation Value Unit update [in_i} ; Expects DFN,VPRBDT,VPREDT,VPRN
MED	; get inpatient medication orders without a Pharmacy Status
REF	; -- Referrals via #123 where an action taken has been 'added comment'
SOC
INS	; -- Member Enrollment via #2.312 without expiration date
POSTINIT	;Main entry point for Post-init items. ; Queue off predictor to run after 10:00pm
PREDICTOR	;-- capture CTP predictor as Post Init on patch install (optional)
MSG	; add post message and send to VPR developers in Outlook

External References

Name	Field # of Occurrence
^%ZTLOAD	POSTINIT+11
EN1^GMRVUT0	OBS+6
$$GETICN^MPIF001	ICN+5
$$SITE^VASITE	CTP+3, MSG+2
$$MERGED^VPRHS	ICN+4
HFS^VPRSDAHX	SOC+4
PS1^VPRSDAP	MED+10
$$FMADD^XLFDT	EN+10
$$NOW^XLFDT	POSTINIT+6, POSTINIT+8
$$UP^XLFSTR	CTP+8
^XMD	MSG+30
$$INSTALDT^XPDUTL	PATCH+2
BMES^XPDUTL	PROGCHK+3, EN+17, POSTINIT+2
MES^XPDUTL	PROGCHK+4, PROGCHK+5, PROGCHK+6, EN+18, EN+19, EN+23, EN+25, EN+27, EN+29, EN+31 , POSTINIT+12, POSTINIT+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ICN+2, INS+2
^GMR(123 - [#123]	REF+3, REF+4, REF+7
^GMR(123.1 - [#123.1]	REF+2
^OR(100 - [#100]	MED+4, MED+5, MED+6
^ORD(100.98 - [#100.98]	MED+2
^UTILITY($J	OBS+7, OBS+8, OBS+9, OBS+10, OBS+14!
^VPR(1	EN+5, CTP+4, ICN+3
^XTMP("VPRP37"	EN+9

Label References

Name	Line Occurrences
$$ICN	CTP+6
$$PATCH	EN+3
@(	CTP+8
CTP	EN+15
EN	PREDICTOR+2
ICQ	ICN+1, ICN+2, ICN+3, ICN+4
POST	OBS+13, MED+12, REF+8, SOC+8, INS+4
PROGCHK	ENV+3

Naked Globals

Name	Field # of Occurrence
^(	REF+7, INS+2
^(3	MED+6
^(4	MED+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AC	REF+1~, REF+2*, REF+7
ACT	POST~, POST+4, POST+7, POST+10, REF+1~, REF+6, REF+7*
DA	REF+1~, REF+3, REF+4, REF+7, REF+8, SOC+2~, SOC+7, SOC+8
DAY	POSTINIT+3~, POSTINIT+6*, POSTINIT+7
DFN	CTP+2~, CTP+5*, CTP+6, ICN~, ICN+1, ICN+2, ICN+3, ICN+4, ICN+5, POST+10 , POST+11, POST+12, MED+3, REF+3, INS+2, INS+4
DLIST	SOC+2~, SOC+5
DLIST(	SOC+6, SOC+7
DMAX	OBS+2~, OBS+4, OBS+5, OBS+7, SOC+2~, SOC+3
DONE	POSTINIT+3~
DRANGE	OBS+2~
DSTOP	SOC+2~, SOC+3*
DSTRT	SOC+2~, SOC+3*
DT	PROGCHK+2, EN+4, EN+10
DUZ	PROGCHK+2, MSG+26
DUZ(0	PROGCHK+2
EXDT	INS+1~, INS+3*, INS+4
FMT	EN~, EN+12
GMRVSTR	OBS+2~, OBS+3*
GMRVSTR(0	OBS+5*
GUID	OBS+2~
ICN	CTP+2~, CTP+6*, POST+10
ID	POST~, POST+3, POST+10, OBS+2~, OBS+9, OBS+10, OBS+13
IEN	INS+1~, INS+2*, INS+4
LINE	MSG+1~, MSG+5, MSG+6, MSG+7, MSG+8, MSG+9, MSG+10, MSG+12, MSG+14, MSG+16* , MSG+18, MSG+20, MSG+21*
OK	REF+1~, REF+6, REF+7, REF+8
ORDG	MED+1~, MED+2*, MED+4, MED+5
ORIFN	MED+1~, MED+5*, MED+6, MED+10, MED+12
ORPK	MED+1~
ORVP	MED+1~, MED+3*, MED+4, MED+5
P	PATCH~, PATCH+1*, PATCH+2
PAT	EN~, EN+5, EN+6, EN+7
PSTYPE	MED+1~
QQ	POSTINIT+3~, POSTINIT+6*
SCH	POSTINIT+6!, POSTINIT+7, POSTINIT+8, POSTINIT+9
START	EN~, EN+2
STN	CTP+2~, CTP+3*
STOP	EN~, EN+4
TAG	CTP+2~, CTP+7, CTP+8, POST+6
TIME	POSTINIT+3~, POSTINIT+6*, POSTINIT+7, POSTINIT+8
TYP	OBS+2~, OBS+11*, OBS+12
TYPE	EN~, EN+14, POST~, POST+3*, POST+10, POST+12
U	PROGCHK+2, EN+10, EN+21, CTP+3, POST+10, OBS+5, OBS+11, MED+7, MED+8, MED+11 , REF+4, REF+7, INS+3, MSG+8, MSG+9, MSG+10
VPR37	EN+1~, EN+3*, EN+4
VPRBDT	EN+1~, EN+2*, OBS+5, MED+3, REF+4, SOC+3
VPRDT	MED+1~, MED+3, MED+4, MED+5
VPREDT	EN+1~, EN+4*, OBS+5, MED+4, REF+4, SOC+3
VPRFMT	EN+1~, EN+12*, POST+9
VPRI	PATCH+1~, PATCH+2
VPRI(0	PATCH+3
VPRIDT	OBS+2~, OBS+7*, OBS+8, OBS+9, OBS+10
VPRII	EN+1~, EN+12, EN+21, POST+8, POST+10, POST+11, POST+12
>> VPRMSG(	MSG+6, MSG+7, MSG+8, MSG+9, MSG+10, MSG+12, MSG+14, MSG+16, MSG+18, MSG+20 , MSG+21*
VPRN	EN+1~, EN+11, EN+17, EN+20, EN+21, POST+8, OBS+7, MSG+1~, MSG+3*, MSG+8 , MSG+9, MSG+10
VPRN(	POST+6, POST+7
VPRN("D"	EN+11*, EN+19, EN+21
VPRN("U"	EN+11*, EN+18, EN+21
VPRNUM	SOC+2~, SOC+3, SOC+6, SOC+7
VPRPAT	EN+1~, EN+5, EN+6, EN+7, CTP+4, CTP+5
VPRPRED	PREDICTOR+1~, PREDICTOR+2, MSG+3, MSG+11, MSG+12, MSG+13, MSG+14, MSG+15, MSG+16, MSG+17 , MSG+18, MSG+19, MSG+20
VPRPS	MED+1~, MED+11
VPRPT	EN+1~, CTP+4
VPRPT(	EN+6*
VPRSITE	MSG+1~, MSG+2*, MSG+6, MSG+23
VPRT	CTP+2~, CTP+7*
VPRTYP	OBS+2~, OBS+8*, OBS+9, OBS+10
VPRTYPE	EN+1~, EN+14*, CTP+3, CTP+7
VPRY	EN~, EN+9*, EN+10, EN+20, EN+21, EN+22, EN+23, EN+24, EN+25, EN+26 , EN+27, EN+28, EN+29, EN+30, EN+31, POST+10, POST+11, POST+12
VST	POST~, POST+10
X	REF+1~, REF+4*
X0	OBS+2~, OBS+10, OBS+11, MED+1~, MED+6, REF+1~, REF+4, INS+1~, INS+2, INS+3
X3	MED+1~, MED+6*, MED+7, MED+8
X4	MED+1~, MED+6*, MED+9
XMDUN	MSG+22~
XMDUZ	MSG+22~, MSG+24*
XMSUB	MSG+22~, MSG+23*
XMTEXT	MSG+22~, MSG+30*
XMY	MSG+22~, MSG+25!
XMY(	MSG+26*
XMY("chris.flegel@domain.ext"	MSG+29*
XMY("liana.buciuman@domain.ext"	MSG+27*
XMY("m.robert.yorty@domain.ext"	MSG+28*
XPDABORT	ENV+2, ENV+3, ENV+4!, PROGCHK~, PROGCHK+7
Y	PATCH+1~, PATCH+2, PATCH+3, PATCH+4, ICN+1~, ICN+2, ICN+3, ICN+4, ICN+5*, ICQ+1 , POSTINIT+3~
ZTDESC	POSTINIT+3~, POSTINIT+10*
ZTDTH	POSTINIT+3~, POSTINIT+9*
ZTIO	POSTINIT+3~, POSTINIT+4*
ZTRTN	POSTINIT+3~, POSTINIT+4*
ZTSAVE	POSTINIT+3~
ZTSK	POSTINIT+3~, POSTINIT+12, POSTINIT+13

Marked Items

Name	Field # of Occurrence
$T(@TAG	CTP+8

Customize PDF page

Package: Virtual Patient Record

Routine: VPR1P37

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items