Routine: WVUTL11

Package	Total	Call Graph
Clinical Reminders	3	ITEMLIST^PXRMAPI ($$GETGRACD,GETGRACD)^PXRMCWH1 EN^PXRMGEV
VA FileMan	2	C^%DTC $$GET1^DIQ
Womens Health	2	AUTOADD^WVPATE $$ISIT^WVUTL11
Kernel	1	$$FMADD^XLFDT
Outpatient Pharmacy	1	(OCL,OEL)^PSOORRL
Pharmacy Data Management	1	DATA^PSS50

Package	Total	Caller Graph
Womens Health	18	WV1024P WV1026P WVMGRP WVPKG WVRPCOR WVRPCOR1 WVRPCOR2 WVRPCPT WVRPCPT1 WVRPCPT2 WVRPCVPR WVRPSNP WVTDALRT WVTIU WVUTL1 WVUTL11 WVUTL3 ^WV(791
Clinical Reminders	1	PXRMCWH1
VA FileMan	1	ITEM

Entry Points

Name	Comments	DBIA/ICR reference
BC(WVDFN,WVDT)	;Return patient's likelihood of becoming pregnant ; when on prescription contraceptives ; DT^DILF (IA #2054): This component converts a user-formatted date into FileMan date format ; DATA^PSS50 (IA #4533): This component returns DRUG file (#50) data ; OCL^PSOORRL (IA #2400): This component returns all medications for a patient in a date range ; INPUT: WVDFN - IEN from PATIENT file #2 ; WVDT - Date to use as today's date ; OUTPUT: 1 - HIGH, 2 - LOW
COBP(WVDFN,WVPIEN)	;Determine patient's likelihood of becomming pregnant ; INPUT: WVDFN - IEN from PATIENT file #2 ; WVPIEN - IEN in PREGNANCY STATUSES sub-file #790.05 ; OUTPUT: -1 - Error (message text in second caret piece) ; 0 - Unknown risk of pregnancy ; 1 - High risk of pregnancy ; 2 - Low risk of pregnancy
FMERROR(WVRESULT)	;RETURN FILEMAN ERROR MESSAGE AS STRING
ISREG(WVDFN)	;DETERMINE IF PATIENT IS REGISTERED ; INPUT: WVDFN - IEN IN WV PATIENT FILE [REQUIRED] ; OUTPUT: $$ISREG - 1: PATIENT IS/WAS SUCCESSFULLY REGISTERED ; 0^MESSAGE: PATIENT IS/WAS NOT SUCCESSFULLY REGISTERED
VISITIEN(WVDFN,WVVSTR)	;RETURN VISIT FILE IEN GIVEN TIU VSTRING
VSTRING(WVIEN)	;RETURN TIU VSTRING GIVEN VISIT FILE IEN
ISPREG(WVDFN,WVSDATE,WVEDATE,WVCDE)	;DETERMINES IF PATIENT WAS PREGNANT ON DATE OR IN ; DATE RANGE
ISLACT(WVDFN,WVSDATE,WVEDATE,WVCDE)	;DETERMINE IF PATIENT WAS LACTATING ON DATE OR IN ; DATE RANGE
ISIT(WVNODE,WVDFN,WVSDATE,WVEDATE,WVCDE,WVRIEN)	;RETURNS PATIENT'S STATUS BASED ON TYPE AND ; DATE RANGE
PREGS(WVDFN,WVINDEX,WVCDE)	;CREATES INDEX OF PREGNANCY STATUSES ; INPUT: WVDFN - PATIENT IEN IN WV PATIENT FILE (#790) ; WVINDEX - REFERENCE TO ARRAY IN WHICH TO RETURN THE INDEX OF STATUSES ; WVCDE - CALCULATE END DATE; FOR PREGNANCIES THAT DO NOT HAVE A SPECIFIED ; END DATE BUT HAVE A "NO LONGER PREGNANT" STATUS FOLLOWING IT, ; WVCDE=1 WILL SET THAT PREGNANCY'S END DATE TO TOMORROW ; AND WVCDE=0 WILL SET THAT PREGNANCY'S END DATE TO THE ; "NO LONGER PREGNANT" STATUS' D/T ENTERED. WVCDE=1 IS USED ; BY DIALOGS TO PROMPT FOR END OF PREGNANCY DATA ; OUTPUT: WVINDEX(START,STOP,STOP_IEN)=""
GETGRACD()	;WRAPPER TO CALL GETGRACD^PXRMCWH1
LACTS(WVDFN,WVINDEX,WVCDE)	;CREATES INDEX OF LACTATION STATUSES ; INPUT: WVDFN - PATIENT IEN IN WV PATIENT FILE (#790) ; WVINDEX - REFERENCE TO ARRAY IN WHICH TO RETURN THE INDEX OF STATUSES ; WVCDE - CALCULATE END DATE; FOR LACTATIONS THAT DO NOT HAVE A SPECIFIED ; END DATE BUT HAVE A "NO LONGER LACTATING" STATUS FOLLOWING IT, ; WVCDE=1 WILL SET THAT LACTATION'S END DATE TO TOMORROW ; AND WVCDE=0 WILL SET THAT LACTATION'S END DATE TO THE ; "NO LONGER LACTATING" STATUS' D/T ENTERED. WVCDE=1 IS USED ; BY DIALOGS TO PROMPT FOR END OF LACTATION DATA ; OUTPUT: WVINDEX(START,STOP,STOP_IEN)=""
MOA(WVMOA,WVDFN,WVDT)	;RETURN LIKELIHOOD OF BECOMING PREGNANT ; GIVEN THE METHOD OF CONTRACEPTION ; INPUT: WVMOA - CONTRACEPTIVE METHOD (NAME OR IEN IN FILE #791) ; WVDFN - PATIENT IEN IN WV PATIENT FILE (#790) ; WVDATE - DATE TO USE WHEN CALCULATING THE LIKELIHOOD ; OUTPUT: 1 - HIGH, 2 - LOW, -1 - Error
GETLREC(WVDFN,WVNODE)	;RETURN "IEN^DATE^ENTERED BY^STATUS" OF MOST RECENT PREGNANCY ; OR LACTATION STATUS RECORD
REM(WVDFN,WVNAME,WVFIEVAL)	;EVALUATE REMINDER DEFINITION

Name	Field # of Occurrence
C^%DTC	BC+10, BC+11
$$GET1^DIQ	ISREG+11
OCL^PSOORRL	BC+13
OEL^PSOORRL	BC+21
DATA^PSS50	BC+23
ITEMLIST^PXRMAPI	BC+12
$$GETGRACD^PXRMCWH1	GETGRACD+3
GETGRACD^PXRMCWH1	GETGRACD+3
EN^PXRMGEV	REM+6
AUTOADD^WVPATE	ISREG+10
$$ISIT^WVUTL11	GETLREC+4
$$FMADD^XLFDT	PREGS+21, PREGS+22, PREGS+27, PREGS+32, PREGS+36, PREGS+44, PREGS+45, PREGS+52, PREGS+65, PREGS+70 , PREGS+73, PREGS+80, LACTS+23, LACTS+24, LACTS+37, LACTS+42, LACTS+45

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	VSTRING+4
^AUPNVSIT("AA"	VISITIEN+7
^DPT - [#2]	ISREG+8, VISITIEN+2
^TMP("PS"	BC+14!, BC+21, BC+22, BC+28!
^TMP("WVPS"	BC+14*, BC+16, BC+17, BC+28!
^TMP($J	BC+24, BC+25, BC+26, BC+27, BC+28!, REM+7, REM+8, REM+9!
^WV(790 - [#790]	COBP+9, COBP+11, ISREG+7, ISIT+15, ISIT+24, ISIT+31, PREGS+13, PREGS+14, PREGS+15, PREGS+16 , PREGS+19, PREGS+41, PREGS+43, PREGS+60, PREGS+62, PREGS+83!, PREGS+84, LACTS+13, LACTS+14, LACTS+15 , LACTS+30, LACTS+39, LACTS+44, LACTS+50!, LACTS+51, GETLREC+7, GETLREC+9
^WV(790.02 - [#790.02]	ISREG+10, ISREG+11
^WV(791 - [#791]	COBP+13, MOA+9, MOA+11, MOA+12

Name	Line Occurrences
$$GETGRACD	PREGS+44, PREGS+45, PREGS+70, PREGS+73
$$ISIT	ISPREG+11, ISLACT+11
$$MOA	COBP+12
LACTS	ISIT+14
PREGS	ISIT+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	BC+8~
BDT1	BC+9~
DRG	BC+9~
DT	ISPREG+11, ISLACT+11, PREGS+32, PREGS+77, PREGS+78, PREGS+80, LACTS+42, LACTS+44, LACTS+47, LACTS+48 , MOA+8, GETLREC+4
DUZ(2	ISREG+10, ISREG+11
EXDT	BC+9~
FL	BC+9~
I	BC+9~
IEN	BC+9~
II	BC+9~
ITFN	BC+9~
J	BC+9~
LSTDS	BC+9~
LSTFD	BC+9~
LSTRD	BC+9~
MDR	BC+9~
MIG	BC+9~
MR	BC+9~
PSBDT	BC+9~
PSEDT	BC+9~
PSOR	BC+9~
RX0	BC+9~
RX2	BC+9~
RX3	BC+9~
SC	BC+9~
SCH	BC+9~
SG	BC+9~
ST	BC+9~
ST0	BC+9~
STA	BC+9~
TFN	BC+9~
TRM	BC+9~
U	BC+19, BC+20, BC+21, BC+22, BC+24, BC+25, BC+26, COBP+11, COBP+13, COBP+17 , ISREG+6, ISREG+8, ISREG+13, VSTRING+5, ISIT+22, ISIT+24, ISIT+30, ISIT+31, ISIT+32, ISIT+33 , PREGS+14, PREGS+15, PREGS+16, PREGS+19, PREGS+41, PREGS+43, PREGS+60, PREGS+62, LACTS+14, LACTS+15 , LACTS+30, LACTS+39, LACTS+44, MOA+12, GETLREC+5, GETLREC+7, GETLREC+9, REM+5, REM+7, REM+8 , REM+10
VSIT0	VSTRING+3~, VSTRING+4*, VSTRING+5
WV100	BC+8~, BC+10*, BC+21
WV465	BC+8~, BC+11*, BC+13
WVCDE	ISPREG~, ISPREG+11, ISLACT~, ISLACT+11, ISIT~, ISIT+10, ISIT+12, ISIT+13, ISIT+14, PREGS~ , PREGS+11, PREGS+12, PREGS+32, PREGS+78, LACTS~, LACTS+11*, LACTS+12, LACTS+42, LACTS+44
WVCODE	BC+8~
WVCONT	COBP+10~, COBP+11*, COBP+12, COBP+13
WVDATE	BC+8~, BC+20, BC+21, ISIT+9~, PREGS+10~, PREGS+13, PREGS+29, PREGS+32, PREGS+37, PREGS+42 , PREGS+61, LACTS+10~, LACTS+13*, LACTS+21, LACTS+42
WVDATE("LAST_START"	ISIT+20, ISIT+22, ISIT+23!, ISIT+28, ISIT+30
WVDATE(1	ISIT+18, ISIT+19, ISIT+20, ISIT+21, ISIT+26, ISIT+27, ISIT+28, ISIT+29
WVDATE(2	ISIT+19, ISIT+21, ISIT+22, ISIT+27, ISIT+29, ISIT+30
WVDFN	BC~, BC+13, BC+21, COBP~, COBP+9, COBP+11, COBP+12, ISREG~, ISREG+5, ISREG+6 , ISREG+7, ISREG+8, ISREG+10, VISITIEN~, VISITIEN+1*, VISITIEN+2, VISITIEN+7, ISPREG~, ISPREG+11, ISLACT~ , ISLACT+11, ISIT~, ISIT+13, ISIT+14, ISIT+15, ISIT+24, ISIT+31, PREGS~, PREGS+13, PREGS+14 , PREGS+15, PREGS+16, PREGS+19, PREGS+41, PREGS+43, PREGS+60, PREGS+62, PREGS+83, PREGS+84, LACTS~ , LACTS+13, LACTS+14, LACTS+15, LACTS+30, LACTS+39, LACTS+44, LACTS+50, LACTS+51, MOA~, GETLREC~ , GETLREC+4, GETLREC+7, GETLREC+9, REM~, REM+4
WVDRUG	BC+8~, BC+21*, BC+22
WVDRUG(1	BC+22*, BC+23, BC+24, BC+25, BC+26, BC+27
WVDT	BC~, BC+10, BC+11, BC+13, VISITIEN+4~, VISITIEN+5, VISITIEN+6, VISITIEN+7, MOA~, MOA+8*
WVEDATE	ISPREG~, ISPREG+11, ISLACT~, ISLACT+11, ISIT~, ISIT+25, ISIT+29, ISIT+30
WVEDD	PREGS+10~, PREGS+12, PREGS+18, PREGS+43, PREGS+44, PREGS+45, PREGS+47, PREGS+48, PREGS+58, PREGS+62 , PREGS+69, PREGS+70, PREGS+71, PREGS+72, PREGS+73, PREGS+74, PREGS+78, PREGS+79, PREGS+80*, PREGS+81
WVEDD("OLD"	PREGS+43, PREGS+47, PREGS+48, PREGS+50, PREGS+51, PREGS+52, PREGS+53, PREGS+55, PREGS+56!
WVEND	PREGS+10~, PREGS+12, PREGS+17, PREGS+19, PREGS+20, PREGS+21, PREGS+24, PREGS+26, PREGS+27, PREGS+28 , PREGS+29, PREGS+37, PREGS+63, PREGS+64, PREGS+66, PREGS+67, PREGS+75, PREGS+76, PREGS+77, LACTS+10~ , LACTS+12, LACTS+22, LACTS+23, LACTS+25, LACTS+26, LACTS+29, LACTS+30, LACTS+31, LACTS+34, LACTS+36 , LACTS+37, LACTS+38, LACTS+39, LACTS+45, LACTS+46, LACTS+47, LACTS+48
WVEND("GUESS"	PREGS+17, PREGS+22!, PREGS+31, PREGS+32, PREGS+33, PREGS+34, PREGS+36, PREGS+37!, PREGS+40, PREGS+63 , PREGS+64, PREGS+68!, PREGS+75, LACTS+18, LACTS+22, LACTS+23, LACTS+27!, LACTS+29, LACTS+32!, LACTS+41 , LACTS+42, LACTS+43, LACTS+44, LACTS+45
WVERR	COBP+7~, COBP+9, COBP+13*, COBP+17, COBP+18
WVERRADD	ISREG+9~, ISREG+10, ISREG+11*, ISREG+12
WVERRNUM	FMERROR+1~, FMERROR+2*, FMERROR+3, FMERROR+4, FMERROR+5, FMERROR+6
WVERRORS	FMERROR+1~, FMERROR+6*, FMERROR+7
WVERRORS(	FMERROR+3, FMERROR+7*
WVERRTXT	FMERROR+1~, FMERROR+5*, FMERROR+8
WVEXTRA	ISREG+9~, ISREG+11*, ISREG+13
WVFIEVAL	REM~, REM+3*, REM+5, REM+9
>> WVFKST	ISPREG+10, ISLACT+10
WVIEN	COBP+7~, COBP+9, COBP+11, VSTRING~, VSTRING+1, VSTRING+2, VSTRING+4, ISIT+9~, PREGS+10~, PREGS+13* , PREGS+14, PREGS+15, PREGS+16, PREGS+17, PREGS+19, PREGS+24, PREGS+41, PREGS+43, PREGS+47, PREGS+54 , PREGS+55, PREGS+58, PREGS+60, PREGS+62, PREGS+71, PREGS+74, LACTS+10~, LACTS+13, LACTS+14, LACTS+15 , LACTS+19, LACTS+21, LACTS+29, LACTS+30, LACTS+34, LACTS+39, LACTS+44, MOA+7~, MOA+9, MOA+10 , MOA+11, MOA+12, GETLREC+2~, GETLREC+5*, GETLREC+6, GETLREC+7, GETLREC+9
WVIEN("CONT-END"	PREGS+17, PREGS+66, PREGS+68!, PREGS+77, LACTS+25, LACTS+27!, LACTS+29, LACTS+47
WVIEN("CONT-START"	PREGS+26!, PREGS+34, PREGS+35!, PREGS+55, PREGS+57, LACTS+19, LACTS+36!, LACTS+43!, LACTS+48
WVIEN("END"	PREGS+19, PREGS+66, PREGS+68!, PREGS+77, LACTS+25, LACTS+27!, LACTS+30, LACTS+47
WVIEN("START"	PREGS+26!, PREGS+34, PREGS+37!, PREGS+47, PREGS+53, PREGS+54, PREGS+62, PREGS+81, LACTS+21, LACTS+36! , LACTS+43, LACTS+44!, LACTS+48
WVINAME	ISIT+9~, ISIT+11*, ISIT+15
WVINDEX	ISIT+9~, ISIT+13, ISIT+14, ISIT+15*, ISIT+16, PREGS~, PREGS+84, LACTS~, LACTS+51
WVINDEX(	ISIT+18, ISIT+19, ISIT+21, ISIT+22, ISIT+26, ISIT+27, ISIT+29, ISIT+30, PREGS+18!, PREGS+22! , PREGS+26, PREGS+34, PREGS+47!, PREGS+48!, PREGS+51!, PREGS+53, PREGS+58, PREGS+66, PREGS+71, PREGS+74* , PREGS+77, PREGS+79!, PREGS+81, LACTS+25, LACTS+32!, LACTS+36, LACTS+43, LACTS+47, LACTS+48*
WVINDEX(1410102	PREGS+24, LACTS+34
WVITM	FMERROR+1~, FMERROR+4*, FMERROR+5
WVMOA	MOA~, MOA+6, MOA+9
WVNAME	REM~, REM+5, REM+8, REM+10
WVNODE	BC+8~, BC+17, BC+19, BC+20, BC+21, ISIT~, ISIT+10, ISIT+11, ISIT+13, ISIT+14 , ISIT+15, ISIT+22, ISIT+24, ISIT+30, ISIT+31, PREGS+10~, PREGS+12, PREGS+13, PREGS+14, PREGS+15 , PREGS+16, PREGS+19, PREGS+41, PREGS+43, PREGS+60, PREGS+62, PREGS+83, PREGS+84, LACTS+10~, LACTS+12 , LACTS+13, LACTS+14, LACTS+15, LACTS+30, LACTS+39, LACTS+44, LACTS+50, LACTS+51, GETLREC~, GETLREC+4 , GETLREC+7, GETLREC+9
WVNPFLAG	ISREG+4~, ISREG+5, ISREG+6, ISREG+7, ISREG+8, ISREG+12, ISREG+13
WVON	BC+8~, BC+16*, BC+17
WVPARAMS	REM+2~, REM+6
WVPARAMS("DFN"	REM+4*
WVPARAMS("REMINDERS"	REM+5*
WVPARAMS("SUB"	REM+4*
WVPIEN	COBP~, COBP+9, COBP+11
WVREC	ISIT+9~, ISIT+32*
WVRECS	ISIT+9~
WVRECS(	ISIT+32
WVRECS(1	ISIT+18, ISIT+21, ISIT+22, ISIT+24*, ISIT+31
WVRECS(2	ISIT+26, ISIT+29, ISIT+30, ISIT+31*
WVREMST	REM+2~, REM+8*, REM+10, REM+11
WVRESULT	FMERROR~, REM+2~, REM+6
WVRESULT("DIERR"	FMERROR+2, FMERROR+3, FMERROR+4, FMERROR+5, FMERROR+6
WVRET	GETLREC+2~, GETLREC+3, GETLREC+9, GETLREC+10
WVRETURN	COBP+7~, COBP+8, COBP+17, COBP+18, COBP+19, MOA+7~, MOA+8, MOA+10, MOA+12, MOA+13 , MOA+14
WVRIEN	ISIT~, ISIT+17*, ISIT+32
WVRISK	BC+8~, BC+15, BC+16, BC+24, BC+25, BC+26, BC+27, BC+29, COBP+7~, COBP+14 , COBP+15*, COBP+18
WVRISK(1	COBP+12*, COBP+13, COBP+14, COBP+15, COBP+16!
WVRTN	ISIT+9~, ISIT+17, ISIT+32, ISIT+33*, ISIT+34
WVRX	BC+8~
WVSAVE	PREGS+10~, PREGS+12, PREGS+82, LACTS+10~, LACTS+12, LACTS+49
WVSDATE	ISPREG~, ISPREG+11, ISLACT~, ISLACT+11, ISIT~, ISIT+8, ISIT+21, ISIT+22
WVSTART	PREGS+10~, PREGS+12, PREGS+18, PREGS+22, PREGS+23, PREGS+25, PREGS+26, PREGS+29, PREGS+30, PREGS+33 , PREGS+34, PREGS+37, PREGS+39, PREGS+40, PREGS+41, PREGS+42, PREGS+45, PREGS+46, PREGS+47, PREGS+48 , PREGS+49, PREGS+50, PREGS+52, PREGS+55, PREGS+58, PREGS+59, PREGS+60, PREGS+61, PREGS+65, PREGS+71 , PREGS+73, PREGS+74, PREGS+79, PREGS+81, LACTS+10~, LACTS+12, LACTS+17, LACTS+18, LACTS+20, LACTS+21* , LACTS+24, LACTS+32, LACTS+33, LACTS+35, LACTS+36, LACTS+39, LACTS+40, LACTS+43, LACTS+44, LACTS+48
WVSTART("INDEX"	PREGS+65, PREGS+66, PREGS+68!, LACTS+24, LACTS+25, LACTS+27!
WVSTART("OLD"	PREGS+41*, PREGS+46, PREGS+49, PREGS+51, PREGS+53, PREGS+56!
WVSTATUS	PREGS+10~, PREGS+15, PREGS+16, PREGS+27, PREGS+38, PREGS+78, LACTS+10~, LACTS+15, LACTS+16, LACTS+28 , GETLREC+2~, GETLREC+4, GETLREC+5, GETLREC+7, GETLREC+8*, GETLREC+9
WVVISIT	ISIT+9~
WVVSTR	VISITIEN~, VISITIEN+1*, VISITIEN+3, VISITIEN+5
X	BC+8~, BC+10, BC+11
X1	BC+8~, BC+10, BC+11
X2	BC+8~, BC+10, BC+11

Customize PDF page

Package: Womens Health

Routine: WVUTL11

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 20

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items