Routine: WVRPCPT

Package	Total	Call Graph
Womens Health	7	NEW^WVRPCGF ($$GETSUB,POSTLIST)^WVRPCOR $$CLRSRND^WVRPCPT2 (EXTRTDAT,NOTIFY)^WVRPCVPR $$METHOD^WVTDALRT ($$FMERROR,$$GETLREC,$$ISPREG,$$ISREG,$$MOA,$$VISITIEN,$$VSTRING)^WVUTL11 $$FMADD^WVUTL3
Kernel	3	($$DT,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$REPLACE^XLFSTR $$INSTALDT^XPDUTL
VA FileMan	3	$$GET1^DID (FILE,UPDATE)^DIE $$EXTERNAL^DILFD

Package	Total	Caller Graph
Womens Health	3	WVRPCNO WVRPCPT1 WVRPCPT2
Clinical Reminders	2	PXRMCWH1 PXRMRPCG
Health Summary	1	GMTSWVC1
Outpatient Pharmacy	1	PSODEM
Text Integration Utility	1	^TIU(8925.1

Entry Points

Name	Comments	DBIA/ICR reference
BRTX(DFN,BRTX,BRDD,CRTX,CRDD,WVPDATE)	; Update the patient's treatment needs and ; due dates in WV PATIENT file (790) ; Input: DFN - patient DFN [required] ; BRTX - breast treatment need IEN (790.51) [optional] ; BRDD - breast treatment need offset (e.g., 1Y) [optional] ; CRTX - cervical treament need IEN (790.5) [optional] ; CRDD - cervical treatment need offset (e.g., 90D) [optional] ; WVPDATE - date procedure was performed [optional] ; default is today ; Output: <none>
GETDATA(RESULT,WVDFN,WVTYPE,WVSDATE,WVEDATE,WVMAX,WVDIR,WVDT)	;RETURN REQUESTED DATA ; INPUT: RESULT - SUBSCRIPT UNDER WHICH TO RETURN DATA OR ERROR MESSAGES ; [REQUIRED] ; WVDFN - IEN OF PATIENT IN WV PATIENT FILE [REQUIRED] ; WVTYPE - TYPE OF DATA TO RETURN [REQUIRED]: ; "P": PREGNANCY DATA ; "L": LACTATION DATA ; WVSDATE - START DATE IN INTERNAL FILEMAN FORMAT [OPTIONAL] ; DEFAULT: NO DATE RANGE RESTRICTION ; WVEDATE - END DATE IN INTERNAL FILEMAN FORMAT [OPTIONAL] ; DEFAULT: NO DATE RANGE RESTRICTION ; WVMAX - MAXIMUM NUMBER OF ENTRIES TO RETURN [OPTIONAL] ; DEFAULT: RETURN ALL DATA ; WVDIR - SEARCH DIRECTION [OPTIONAL]: ; 1:CHRONOLOGICAL ORDER ; -1: REVERSE CHRONOLOGICAL ORDER [DEFAULT] ; WVDT - THE DATE (IN FILEMAN INTERNAL FORMAT) TO USE AS TODAY'S DATE [OPTIONAL] ; DEFAULT: VALUE STORED IN DT VARIABLE ; OUTPUT: ^TMP(RESULT,$J)=NUMBER OF ENTRIES RETURNED ; -1^Error message ; ^TMP(RESULT,$J,N,"FIELD NAME")=INTERNAL_FORMAT^EXTERNAL FORMAT
PFIELDS	;PSEUDO-FIELD DEFINITIONS
SAVEDATA(WVRETURN,WVDATA)	;SAVE DATA FROM CLINICAL REMINDERS ; INPUT: WVRETURN - REFERENCE TO ARRAY IN WHICH TO RETURN STATUS ; [REQUIRED] ; WVDATA - REFERENCE TO ARRAY OF DATA TO SAVE ; [REQUIRED]
VALENTRY(WVFILE,WVENTRY,WVFDA,WVNEWREC)	;VALIDATE THE DATA TO FILE
CHKIENS(WVDATA)	;ENSURE IENS ARE COMPLETE AND ACCURATE
SETARRAY(WVFILE,WVFIELD,WVDATA,WVMSUB)	;SET DATA INTO THE RETURN ARRAY ; INPUT: WVFILE - FILE NUMBER CONTAINING THE FIELD [REQUIRED] ; WVFIELD - FIELD NUMBER [REQUIRED] ; WVDATA - INTERNAL VALUE OF THE FIELD [REQUIRED] ; WVMSUB - SUBSCRIPT WITHIN THE TMP GLOBAL TO RETURN DATA IN
GETSTATUS(WVDFN)	;RETURN SINGLE LINE PREGNANT/LACTATING
GETEDD(WVDFN)	;RETURN EDD AND WEEKS GESTATION

Name	Field # of Occurrence
$$GET1^DID	SETARRAY+13
FILE^DIE	BRTX+28, SAVEDATA+47
UPDATE^DIE	SAVEDATA+46
$$EXTERNAL^DILFD	SETARRAY+14
NEW^WVRPCGF	SAVEDATA+18
$$GETSUB^WVRPCOR	GETSTATUS+7
POSTLIST^WVRPCOR	GETSTATUS+2
$$CLRSRND^WVRPCPT2	SAVEDATA+19
EXTRTDAT^WVRPCVPR	SAVEDATA+32
NOTIFY^WVRPCVPR	SAVEDATA+57
$$METHOD^WVTDALRT	SAVEDATA+56
$$FMERROR^WVUTL11	SAVEDATA+53
$$GETLREC^WVUTL11	SAVEDATA+32, GETEDD+3
$$ISPREG^WVUTL11	GETDATA+103
$$ISREG^WVUTL11	SAVEDATA+12
$$MOA^WVUTL11	GETDATA+79
$$VISITIEN^WVUTL11	SAVEDATA+25
$$VSTRING^WVUTL11	GETDATA+64
$$FMADD^WVUTL3	BRTX+20, BRTX+25
$$DT^XLFDT	GETDATA+50
$$FMDIFF^XLFDT	GETEDD+8
$$FMTE^XLFDT	GETSTATUS+10, GETEDD+7
$$NOW^XLFDT	GETDATA+29, SAVEDATA+42
$$REPLACE^XLFSTR	CHKIENS+23
$$INSTALDT^XPDUTL	GETDATA+49

Name	Line Occurrences (* Changed, ! Killed)
^TMP(	GETDATA+22!, GETDATA+24, GETDATA+28, GETDATA+33, GETDATA+35, GETDATA+38, GETDATA+47, GETDATA+63, GETDATA+64, GETDATA+87 , GETDATA+88, GETDATA+90, GETDATA+92, GETDATA+93, GETDATA+94, GETDATA+96, GETDATA+98, GETDATA+99, GETDATA+100, GETDATA+103 , GETDATA+104, GETDATA+106, GETDATA+108, GETDATA+110, GETDATA+116, SETARRAY+15, SETARRAY+16*
^TMP("WVEDD"	GETEDD+2
^WV(790 - [#790]	BRTX+11, GETDATA+32, GETDATA+53, GETDATA+54, GETDATA+62, GETDATA+68, GETDATA+73, GETDATA+75, GETDATA+76, GETDATA+82 , GETDATA+110, GETDATA+113, GETSTATUS+10, GETEDD+4, GETEDD+6
^XTMP(	GETSTATUS+8

Name	Line Occurrences
CHKIENS	SAVEDATA+31
SETARRAY	GETDATA+29, GETDATA+30, GETDATA+31, GETDATA+65, GETDATA+66, GETDATA+67, GETDATA+71, GETDATA+77, GETDATA+81, GETDATA+85 , GETDATA+90, GETDATA+91, GETDATA+92, GETDATA+94, GETDATA+96, GETDATA+99, GETDATA+101, GETDATA+103, GETDATA+104, GETDATA+105 , GETDATA+107, GETDATA+108, GETDATA+113, GETDATA+114, GETDATA+115
VALENTRY	SAVEDATA+45

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BRDD	BRTX~, BRTX+13*, BRTX+19, BRTX+20
BRTX	BRTX~, BRTX+12*, BRTX+18
CRDD	BRTX~, BRTX+15*, BRTX+24, BRTX+25
CRTX	BRTX~, BRTX+14*, BRTX+23
DFN	BRTX~, BRTX+10, BRTX+11, BRTX+18, BRTX+21, BRTX+23, BRTX+26
DT	BRTX+16, GETDATA+30, GETDATA+79, GETEDD+8
RESULT	GETDATA~, GETDATA+21*, GETDATA+22, GETDATA+24, GETDATA+28, GETDATA+33, GETDATA+35, GETDATA+38, GETDATA+47, GETDATA+63 , GETDATA+64, GETDATA+87, GETDATA+88, GETDATA+90, GETDATA+92, GETDATA+93, GETDATA+94, GETDATA+96, GETDATA+98, GETDATA+99 , GETDATA+100, GETDATA+103, GETDATA+104, GETDATA+106, GETDATA+108, GETDATA+110, GETDATA+116, SETARRAY+15, SETARRAY+16
U	GETDATA+24, GETDATA+33, GETDATA+34, GETDATA+35, GETDATA+38, GETDATA+47, GETDATA+54, GETDATA+64, GETDATA+65, GETDATA+66 , GETDATA+67, GETDATA+69, GETDATA+70, GETDATA+71, GETDATA+77, GETDATA+79, GETDATA+83, GETDATA+84, GETDATA+85, GETDATA+87 , GETDATA+88, GETDATA+93, GETDATA+98, GETDATA+100, GETDATA+106, GETDATA+110, GETDATA+113, SAVEDATA+7, SAVEDATA+10, SAVEDATA+13 , SAVEDATA+30, SAVEDATA+35, SAVEDATA+37, SAVEDATA+53, SETARRAY+9, SETARRAY+10, SETARRAY+14, GETSTATUS+4, GETSTATUS+10, GETEDD+4 , GETEDD+6, GETEDD+9
WV79005NR	SAVEDATA+22~, SAVEDATA+51*, SAVEDATA+56
WVARRAY	SAVEDATA+22~, SAVEDATA+36*, SAVEDATA+40
WVCMIEN	SAVEDATA+22~, SAVEDATA+39, SAVEDATA+49, SAVEDATA+50, SAVEDATA+56
WVCMIEN(1	SAVEDATA+51*
WVCMNEW	SAVEDATA+21~, SAVEDATA+56
WVCODE	SETARRAY+7~, SETARRAY+10*, SETARRAY+11
WVCOUNT	GETDATA+25~, GETDATA+26, GETDATA+28, GETDATA+57, GETDATA+61, GETDATA+62*, GETDATA+63, GETDATA+64, GETDATA+87, GETDATA+88 , GETDATA+90, GETDATA+92, GETDATA+93, GETDATA+94, GETDATA+96, GETDATA+98, GETDATA+99, GETDATA+100, GETDATA+103, GETDATA+104 , GETDATA+106, GETDATA+108, GETDATA+110, GETDATA+116, SETARRAY+15, SETARRAY+16
WVDATA	SAVEDATA~, SAVEDATA+18, SAVEDATA+31, CHKIENS~, SETARRAY~, SETARRAY+14*, SETARRAY+15, SETARRAY+16
WVDATA("DATA"	SAVEDATA+6, SAVEDATA+14, SAVEDATA+16, SAVEDATA+17!, SAVEDATA+18, SAVEDATA+19, SAVEDATA+28, SAVEDATA+29, SAVEDATA+34, SAVEDATA+37 , SAVEDATA+40, SAVEDATA+55, CHKIENS+10, CHKIENS+12, CHKIENS+13, CHKIENS+24, CHKIENS+25!, CHKIENS+28!
WVDATA("DFN"	SAVEDATA+9, SAVEDATA+10, SAVEDATA+12, SAVEDATA+17, SAVEDATA+19, SAVEDATA+25, SAVEDATA+32, SAVEDATA+52, SAVEDATA+56, CHKIENS+7
WVDATA("DOCUMENT"	SAVEDATA+44
WVDATA("VISIT"	SAVEDATA+23, SAVEDATA+25, SAVEDATA+30
WVDATE	BRTX+17~, BRTX+20, BRTX+21, BRTX+25, BRTX+26, GETDATA+39~, GETDATA+41, GETDATA+56, GETDATA+57, GETDATA+59 , GETDATA+60, GETDATA+61, GETDATA+112
WVDATE(1	GETDATA+40, GETDATA+42, GETDATA+43, GETDATA+44*, GETDATA+56
WVDATE(2	GETDATA+40, GETDATA+42, GETDATA+43, GETDATA+58, GETDATA+59, GETDATA+60
WVDATES	GETDATA+48~, GETDATA+49
WVDATES(0	GETDATA+49
WVDFN	GETDATA~, GETDATA+23, GETDATA+24, GETDATA+32, GETDATA+53, GETDATA+54, GETDATA+62, GETDATA+63, GETDATA+68, GETDATA+73 , GETDATA+75, GETDATA+76, GETDATA+79, GETDATA+82, GETDATA+103, GETDATA+110, GETDATA+113, GETSTATUS~, GETSTATUS+2, GETSTATUS+7 , GETSTATUS+10, GETEDD~, GETEDD+3, GETEDD+4, GETEDD+6
WVDIR	GETDATA~, GETDATA+36*, GETDATA+37, GETDATA+38, GETDATA+42, GETDATA+44, GETDATA+57, GETDATA+59, GETDATA+60, GETDATA+61
WVDSS	GETDATA+86~, GETDATA+98, GETDATA+99, GETDATA+102
WVDT	GETDATA~, GETDATA+79
WVDTE	GETDATA+51~, GETDATA+52, GETDATA+53, GETDATA+55
WVEDATE	GETDATA~, GETDATA+40
WVEDD	GETEDD+1~, GETEDD+6*, GETEDD+7, GETEDD+8
WVENTRY	SAVEDATA+22~, SAVEDATA+38, SAVEDATA+39, SAVEDATA+40, VALENTRY~, VALENTRY+4, VALENTRY+7, VALENTRY+8, VALENTRY+9, VALENTRY+10 , CHKIENS+2~, CHKIENS+21, CHKIENS+22, CHKIENS+23*, CHKIENS+24, CHKIENS+26
WVERROR	SAVEDATA+21~, SAVEDATA+53
WVEXIT	GETDATA+51~, GETDATA+57, GETDATA+58, GETDATA+59, GETDATA+60, GETDATA+61
WVFDA	BRTX+17~, BRTX+28, SAVEDATA+22~, SAVEDATA+41, SAVEDATA+45, VALENTRY~
WVFDA(	SAVEDATA+42, SAVEDATA+43, SAVEDATA+44, VALENTRY+4!, VALENTRY+7, VALENTRY+8, VALENTRY+9!, VALENTRY+10
WVFDA(790	BRTX+18, BRTX+21, BRTX+23, BRTX+26
WVFIELD	SAVEDATA+21~, VALENTRY+5~, VALENTRY+7*, VALENTRY+8, VALENTRY+9, VALENTRY+10, SETARRAY~, SETARRAY+6, SETARRAY+8, SETARRAY+12 , SETARRAY+13, SETARRAY+14
WVFILE	GETDATA+25~, GETDATA+26, GETDATA+29, GETDATA+30, GETDATA+65, GETDATA+66, GETDATA+67, GETDATA+71, GETDATA+85, SAVEDATA+5~ , SAVEDATA+6, SAVEDATA+7, SAVEDATA+27, SAVEDATA+28, SAVEDATA+29, SAVEDATA+34, SAVEDATA+35, SAVEDATA+36, SAVEDATA+37, SAVEDATA+39 , SAVEDATA+40, SAVEDATA+42, SAVEDATA+43, SAVEDATA+44, SAVEDATA+45, SAVEDATA+48, VALENTRY~, VALENTRY+4, VALENTRY+7, VALENTRY+8 , VALENTRY+9, VALENTRY+10, CHKIENS+2~, CHKIENS+9*, CHKIENS+10, CHKIENS+12, CHKIENS+13, CHKIENS+19, CHKIENS+21, CHKIENS+22 , CHKIENS+24, CHKIENS+25, CHKIENS+28, SETARRAY~, SETARRAY+13, SETARRAY+14
>> WVFKST	GETDATA+27
WVGA	GETEDD+1~, GETEDD+8*, GETEDD+9
WVID	SAVEDATA+15~, SAVEDATA+16, SAVEDATA+17, CHKIENS+2~, CHKIENS+16, CHKIENS+17, CHKIENS+18
WVIDX	GETDATA+39~
WVIEN	GETDATA+51~, GETDATA+61*, GETDATA+62, GETDATA+63, GETDATA+68, GETDATA+73, GETDATA+75, GETDATA+76, GETDATA+82, SAVEDATA+21~ , CHKIENS+2~
WVIEN(	SAVEDATA+49, SAVEDATA+52, CHKIENS+19*, CHKIENS+21, CHKIENS+22
WVIEN(790	CHKIENS+7*
WVIENS	CHKIENS+2~, CHKIENS+13, CHKIENS+14, CHKIENS+15, CHKIENS+16, CHKIENS+19, CHKIENS+20, CHKIENS+24, CHKIENS+25, CHKIENS+26 , CHKIENS+27
WVINDEX	GETDATA+51~, GETDATA+53, GETDATA+54, GETDATA+55, GETSTATUS+1~, GETSTATUS+2, GETSTATUS+3, GETSTATUS+4
WVINDEX(	GETDATA+55*, GETDATA+57, GETDATA+61, GETDATA+112
WVLEVEL	GETDATA+78~, GETDATA+79, GETDATA+80, CHKIENS+2~, CHKIENS+8, CHKIENS+9, CHKIENS+20, CHKIENS+22
WVLEVELS	CHKIENS+2~
WVLEVELS(	CHKIENS+8, CHKIENS+9, CHKIENS+22
WVLEVELS(1	CHKIENS+4, CHKIENS+5
WVLEVELS(2	CHKIENS+4, CHKIENS+5
WVLEVELS(3	CHKIENS+4*
WVLINE	SETARRAY+7~, SETARRAY+8*
WVMAX	GETDATA~, GETDATA+45*, GETDATA+46, GETDATA+47, GETDATA+57, GETDATA+61
WVMIENS	CHKIENS+2~, CHKIENS+12*, CHKIENS+28
WVMSUB	SETARRAY~, SETARRAY+15
WVNEWPH	CHKIENS+2~, CHKIENS+12, CHKIENS+17, CHKIENS+19
WVNEWREC	SAVEDATA+21~, SAVEDATA+38*, SAVEDATA+42, SAVEDATA+45, SAVEDATA+46, SAVEDATA+47, SAVEDATA+49, SAVEDATA+51, SAVEDATA+52, VALENTRY~ , VALENTRY+9, VALENTRY+10
WVNODE	GETDATA+51~, GETDATA+62, GETDATA+64, GETDATA+65, GETDATA+66, GETDATA+67, GETDATA+68, GETDATA+69, GETDATA+70, GETDATA+71 , GETDATA+76, GETDATA+77, GETDATA+79, GETDATA+82, GETDATA+83, GETDATA+84, GETDATA+85
WVNPFLAG	SAVEDATA+11~, SAVEDATA+12*, SAVEDATA+13
WVPATDT	GETDATA+48~, GETDATA+49, GETDATA+50, GETDATA+88
WVPDATE	BRTX~, BRTX+16*, BRTX+20, BRTX+25
WVPDIENS	CHKIENS+2~, CHKIENS+11!
WVPDIENS(	CHKIENS+14, CHKIENS+26, CHKIENS+27
WVPFILE	CHKIENS+2~, CHKIENS+22*
WVPIEN	GETDATA+111~, GETDATA+112*, GETDATA+113
WVPLCHDR	CHKIENS+2~, CHKIENS+17, CHKIENS+18, CHKIENS+19
WVPLCHDR(	CHKIENS+17, CHKIENS+18
WVPNUM	GETDATA+51~, GETDATA+69, GETDATA+70, GETDATA+71, GETDATA+83, GETDATA+84, GETDATA+85
WVPOST	GETSTATUS+1~, GETSTATUS+2
WVPOST(	GETSTATUS+3, GETSTATUS+4
WVREC	SAVEDATA+21~, SAVEDATA+37, SAVEDATA+38, SAVEDATA+39, SAVEDATA+40, SAVEDATA+42, SAVEDATA+43, SAVEDATA+44, SAVEDATA+45, SAVEDATA+49 , SAVEDATA+50, SAVEDATA+51, SAVEDATA+52, GETEDD+1~, GETEDD+3, GETEDD+4, GETEDD+6, GETEDD+9
WVRESULT	GETEDD+1~, GETEDD+2*, GETEDD+5, GETEDD+7, GETEDD+9, GETEDD+10
WVRET	GETSTATUS+1~, GETSTATUS+5, GETSTATUS+10, GETSTATUS+11
WVRETURN	SAVEDATA~, SAVEDATA+8, SAVEDATA+18
WVRETURN(1	SAVEDATA+6, SAVEDATA+7, SAVEDATA+10, SAVEDATA+13, SAVEDATA+19, SAVEDATA+20, SAVEDATA+24, SAVEDATA+27, SAVEDATA+30, SAVEDATA+34 , SAVEDATA+37, SAVEDATA+53, SAVEDATA+54, SAVEDATA+56, SAVEDATA+58
WVRLEVEL	GETDATA+74~, GETDATA+75, GETDATA+80*, GETDATA+81
WVSDATE	GETDATA~, GETDATA+40
WVSEQ	SAVEDATA+22~, SAVEDATA+49*, SAVEDATA+52
WVSIEN	GETDATA+74~, GETDATA+75*, GETDATA+76, GETDATA+77
WVSTATUS	GETDATA+86~, GETDATA+87, GETDATA+89, GETDATA+91, GETDATA+95, GETDATA+97, GETDATA+107, GETEDD+1~, GETEDD+4, GETEDD+5
WVSTRIP	CHKIENS+2~, CHKIENS+23
WVSTRIP("+"	CHKIENS+6*
WVSUB	GETDATA+51~, GETDATA+52, GETDATA+53, GETDATA+54, GETDATA+62, GETDATA+68, GETDATA+73, GETDATA+75, GETDATA+76, GETDATA+82 , GETDATA+110, GETDATA+113, SETARRAY+5~, SETARRAY+9, SETARRAY+13*, SETARRAY+15, SETARRAY+16, GETSTATUS+1~
WVSUB(1	GETSTATUS+7*, GETSTATUS+8
WVSUB(2	GETSTATUS+8*, GETSTATUS+9, GETSTATUS+10
WVTEMP	GETDATA+39~, GETDATA+41*
WVTEMP(1	GETDATA+43
WVTEMP(2	GETDATA+43
WVTEXT	GETSTATUS+1~, GETSTATUS+4*, GETSTATUS+5, GETSTATUS+6
WVTYPE	GETDATA~, GETDATA+26, GETDATA+30, GETDATA+31, GETDATA+34, GETDATA+35, GETDATA+52, GETDATA+72, GETDATA+109
WVUPLVL	CHKIENS+2~, CHKIENS+22*
WVVALUE	VALENTRY+5~, VALENTRY+8*
WVVIEN	SAVEDATA+22~, SAVEDATA+23, SAVEDATA+25, SAVEDATA+26, SAVEDATA+43
WVVPR	SAVEDATA+21~, SAVEDATA+57
WVVPR("AFTER"	SAVEDATA+52*

Customize PDF page

Package: Womens Health

Routine: WVRPCPT

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items