WVUTL11 ;ISP/RFR - TERATOGENIC DRUGS UTILITY FUNCTIONS;May 22, 2018@14:18
Source file <WVUTL11.m>
| Package | Total | Call Graph |
|---|---|---|
| Clinical Reminders | 3 | ITEMLIST^PXRMAPI ($$GETGRACD,GETGRACD)^PXRMCWH1 EN^PXRMGEV |
| Pharmacy Data Management | 2 | DATA^PSS50 DRGIEN^PSS50P7 |
| VA FileMan | 2 | C^%DTC $$GET1^DIQ |
| Kernel | 1 | $$FMADD^XLFDT |
| Outpatient Pharmacy | 1 | (OCL,OEL)^PSOORRL |
| Toolkit | 1 | $$GET^XPAR |
| Womens Health | 1 | AUTOADD^WVPATE |
| 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 |
|---|---|---|
| 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 |
|
| GETORDRS(WVDFN,WVLAC) | ;Entry point for retrieving harmful orders
; INPUT: WVLAC - 1 to indicate calling context is lactation ; 0 (default) to indicate calling context is not lactation ; OUTPUT: $$GETORDRS - Global node address where orders are stored |
|
| IMGAGNT(WVOIIEN) | ;Return true if the orderable item resolves to an imaging agent
|
| 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, IMGAGNT+12 |
| DRGIEN^PSS50P7 | IMGAGNT+7 |
| ITEMLIST^PXRMAPI | BC+12, IMGAGNT+6 |
| $$GETGRACD^PXRMCWH1 | GETGRACD+3 |
| GETGRACD^PXRMCWH1 | GETGRACD+3 |
| EN^PXRMGEV | GETORDRS+17 |
| AUTOADD^WVPATE | ISREG+10 |
| $$FMADD^XLFDT | PREGS+22, PREGS+23, PREGS+30, PREGS+43, PREGS+48, PREGS+51, PREGS+58, PREGS+59, PREGS+64, PREGS+69 , PREGS+73, PREGS+80, LACTS+23, LACTS+24, LACTS+37, LACTS+42, LACTS+45 |
| $$GET^XPAR | GETORDRS+10 |
| 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!, GETORDRS+18, GETORDRS+19, GETORDRS+20!, GETORDRS+23, GETORDRS+24 , GETORDRS+26*, GETORDRS+27!, GETORDRS+28*, IMGAGNT+8, IMGAGNT+9!, IMGAGNT+11, IMGAGNT+13, IMGAGNT+14, IMGAGNT+15, IMGAGNT+16! , IMGAGNT+17! |
| ^WV(790 - [#790] | COBP+9, COBP+11, ISREG+7, ISIT+15, ISIT+24, ISIT+31, PREGS+13, PREGS+14, PREGS+15, PREGS+19 , PREGS+21, PREGS+38, PREGS+40, PREGS+56, PREGS+83!, PREGS+84*, LACTS+13, LACTS+14, LACTS+15, LACTS+30 , LACTS+39, LACTS+44, LACTS+50!, LACTS+51* |
| ^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+22, PREGS+23, PREGS+48, PREGS+51 |
| $$IMGAGNT | GETORDRS+25 |
| $$ISIT | ISPREG+11, ISLACT+11 |
| $$MOA | COBP+12 |
| LACTS | ISIT+14 |
| PREGS | ISIT+13 |
| >> | 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+69, PREGS+77, PREGS+78, PREGS+80, LACTS+42, LACTS+44, LACTS+47, LACTS+48 , MOA+8, GETORDRS+11, IMGAGNT+7 |
| DUZ(2 | ISREG+10, ISREG+11 |
| EXDT | BC+9~ |
| FL | BC+9~ |
| I | BC+9~ |
| IEN | BC+9~ |
| II | BC+9~ |
| INPUT | GETORDRS+6~, GETORDRS+17 |
| INPUT("DFN" | GETORDRS+7* |
| INPUT("ROC DI | SPLAY GROUPS" , GETORDRS+9*, GETORDRS+10*, GETORDRS+11* |
| INPUT("ROC RE | TURN TYPE" , GETORDRS+16* |
| INPUT("ROC ST | ATUS" , GETORDRS+12*, GETORDRS+13*, GETORDRS+14*, GETORDRS+15* |
| INPUT("ROC" | GETORDRS+8* |
| INPUT("SUB" | GETORDRS+7* |
| 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+19, PREGS+21, PREGS+38, PREGS+40, PREGS+56, LACTS+14, LACTS+15, LACTS+30 , LACTS+39, LACTS+44, MOA+12, GETORDRS+24, IMGAGNT+13, IMGAGNT+14, IMGAGNT+15 |
| VSIT0 | VSTRING+3~, VSTRING+4*, VSTRING+5 |
| WV100 | BC+8~, BC+10*, BC+21 |
| WV465 | BC+8~, BC+11*, BC+13 |
| WVAGENT | GETORDRS+22~, GETORDRS+23, GETORDRS+25*, GETORDRS+26 |
| WVCDE | ISPREG~, ISPREG+11, ISLACT~, ISLACT+11, ISIT~, ISIT+10*, ISIT+12, ISIT+13, ISIT+14, PREGS~ , PREGS+11*, PREGS+12, PREGS+69, 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+20, PREGS+39, PREGS+66, PREGS+69 , PREGS+74, 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+19, PREGS+21, PREGS+38, PREGS+40, PREGS+56, PREGS+83, PREGS+84, LACTS~, LACTS+13 , LACTS+14, LACTS+15, LACTS+30, LACTS+39, LACTS+44, LACTS+50, LACTS+51, MOA~, GETORDRS~, GETORDRS+4* , GETORDRS+5, GETORDRS+7 |
| WVDIEN | IMGAGNT+4~, IMGAGNT+10*, IMGAGNT+11, IMGAGNT+12, IMGAGNT+13, IMGAGNT+14, IMGAGNT+15 |
| WVDIENS | IMGAGNT+4~, IMGAGNT+8* |
| WVDIENS( | IMGAGNT+10 |
| WVDIENS(0 | IMGAGNT+8! |
| 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+21*, PREGS+22*, PREGS+23*, PREGS+25, PREGS+26, PREGS+36, PREGS+40*, PREGS+47 , PREGS+48*, PREGS+49, PREGS+50, PREGS+51*, PREGS+52, PREGS+55*, PREGS+78, PREGS+79, PREGS+80*, PREGS+81 |
| WVEDD("OLD" | PREGS+21*, PREGS+25, PREGS+26, PREGS+28, PREGS+29, PREGS+30*, PREGS+31, PREGS+33, PREGS+34! |
| WVEND | PREGS+10~, PREGS+12*, PREGS+41, PREGS+42*, PREGS+44, PREGS+45*, PREGS+54, PREGS+56*, PREGS+57, PREGS+58* , PREGS+61, PREGS+63, PREGS+64*, PREGS+65, PREGS+66*, PREGS+74*, 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+18, PREGS+41, PREGS+42, PREGS+46!, PREGS+54, PREGS+59!, PREGS+68, PREGS+69*, PREGS+70, PREGS+71 , PREGS+73*, PREGS+74!, 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 |
| >> WVFKST | ISPREG+10, ISLACT+10 |
| WVGNAME | IMGAGNT+4~, IMGAGNT+5*, IMGAGNT+6, IMGAGNT+11, IMGAGNT+13, IMGAGNT+14, IMGAGNT+15 |
| 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+19, PREGS+21, PREGS+25, PREGS+32, PREGS+33, PREGS+36, PREGS+38, PREGS+40 , PREGS+49, PREGS+52, PREGS+54, PREGS+56, PREGS+61, 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 |
| WVIEN("CONT-END" | PREGS+44, PREGS+46!, PREGS+54*, PREGS+77, LACTS+25, LACTS+27!, LACTS+29*, LACTS+47 |
| WVIEN("CONT-START" | PREGS+33*, PREGS+35, PREGS+63!, PREGS+71, PREGS+72!, LACTS+19*, LACTS+36!, LACTS+43!, LACTS+48 |
| WVIEN("END" | PREGS+44, PREGS+46!, PREGS+56*, PREGS+77, LACTS+25, LACTS+27!, LACTS+30*, LACTS+47 |
| WVIEN("START" | PREGS+25*, PREGS+31, PREGS+32*, PREGS+40*, PREGS+63!, PREGS+71, PREGS+74!, 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+25!, PREGS+26! , PREGS+29!, PREGS+31*, PREGS+36*, PREGS+44*, PREGS+49*, PREGS+52*, PREGS+55!, PREGS+59!, PREGS+63*, PREGS+71* , PREGS+77*, PREGS+79!, PREGS+81*, LACTS+25*, LACTS+32!, LACTS+36*, LACTS+43*, LACTS+47*, LACTS+48* |
| WVINDEX(1410102 | PREGS+61*, LACTS+34* |
| WVITM | FMERROR+1~, FMERROR+4*, FMERROR+5 |
| WVLAC | GETORDRS~, GETORDRS+4*, GETORDRS+21 |
| WVMOA | MOA~, MOA+6, MOA+9 |
| 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+19, PREGS+21, PREGS+38, PREGS+40, PREGS+56, PREGS+83, PREGS+84, LACTS+10~, LACTS+12*, LACTS+13 , LACTS+14, LACTS+15, LACTS+30, LACTS+39, LACTS+44, LACTS+50, LACTS+51 |
| WVNPFLAG | ISREG+4~, ISREG+5, ISREG+6*, ISREG+7, ISREG+8*, ISREG+12*, ISREG+13* |
| WVOIIEN | IMGAGNT~, IMGAGNT+2*, IMGAGNT+3, IMGAGNT+7 |
| WVOIN | GETORDRS+22~, GETORDRS+23*, GETORDRS+24 |
| WVON | BC+8~, BC+16*, BC+17 |
| WVORDCHK | GETORDRS+6~, GETORDRS+19*, GETORDRS+20, GETORDRS+21 |
| WVORN | GETORDRS+6~, GETORDRS+18*, GETORDRS+19, GETORDRS+20, GETORDRS+23, GETORDRS+24, GETORDRS+26, GETORDRS+27 |
| WVPIEN | COBP~, COBP+9, COBP+11 |
| WVPKG | GETORDRS+22~, GETORDRS+24*, GETORDRS+25 |
| 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* |
| WVRESULT | FMERROR~ |
| WVRESULT("DIERR" | FMERROR+2, FMERROR+3, FMERROR+4, FMERROR+5, FMERROR+6 |
| WVRET | IMGAGNT+4~, IMGAGNT+10, IMGAGNT+11*, IMGAGNT+13*, IMGAGNT+14*, IMGAGNT+15*, IMGAGNT+18 |
| WVRETURN | COBP+7~, COBP+8*, COBP+17*, COBP+18*, COBP+19, MOA+7~, MOA+8*, MOA+10, MOA+12*, MOA+13* , MOA+14, GETORDRS+6~, GETORDRS+17, GETORDRS+29 |
| 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+17, PREGS+18*, PREGS+19*, PREGS+20*, PREGS+23, PREGS+24, PREGS+25, PREGS+26 , PREGS+27, PREGS+28, PREGS+30, PREGS+33, PREGS+36, PREGS+37, PREGS+38*, PREGS+39*, PREGS+43, PREGS+49 , PREGS+51, PREGS+52, PREGS+55, PREGS+59, PREGS+60, PREGS+62, PREGS+63*, PREGS+66, PREGS+67, PREGS+70 , PREGS+71, 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+43*, PREGS+44, PREGS+46!, LACTS+24*, LACTS+25, LACTS+27! |
| WVSTART("OLD" | PREGS+19*, PREGS+24, PREGS+27, PREGS+29, PREGS+31, PREGS+34! |
| WVSTATUS | PREGS+10~, PREGS+15*, PREGS+16, PREGS+53, PREGS+78, LACTS+10~, LACTS+15*, LACTS+16, LACTS+28 |
| 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* |
| Name | Field # of Occurrence |
|---|---|
| $T(GETGRACD^PXRMCWH1 | GETGRACD+3 |
