PXP211I ;SLC/PKR - Init routine for PX*1.0*211 ;08/27/2020
Source file <PXP211I.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 6 | ^%ZTLOAD $$NOW^XLFDT ($$REPLACE,$$TITLE,$$UP)^XLFSTR $$DELETE^XPDPROT (BMES,MES)^XPDUTL $$PROD^XUPROD |
| PCE Patient Care Encounter | 4 | (ADDDS,DSB,GENPNAME,HFCAT,PROVNARB,RBLDBI,RMNCTE,SDPCE,SETCLASS,UPCNAME,VSCITASK)^PXP211I TASKBOTH^PXPNARR VSC^PXPXRMI2 (DELTLFE,RENAME)^PXUTIL |
| VA FileMan | 4 | $$FIND1^DIC (FILE,UPDATE)^DIE (ENALL,IXALL,IXALL2)^DIK EN^DIU2 |
| 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 |
|---|---|---|
| ADDDS | ;Add entries to PCE DATA SOURCE.
|
|
| BINDEX | ;Make sure the "B" index matches what is in the .01, for Education
|
|
| DSB | ;Redo the PCE Data Source "B" index so it is the full length.
|
|
| GENPNAME | ;For any entry missing a print names generate one.
|
|
| HFCAT | ;Append "[C]" to the .01 of all category factors.
|
|
| HFPNAME(NAME,REPA) | ;Turn name into a print name for health factors.
|
|
| HFREPA(REPA) | ;Establish the replacements for health factor print names.
|
|
| MVTREAT | ;Move Treatment from sequence 13 to 15 on PXCE ADD/EDIT MENU.
|
|
| PRE | ;Pre-init
|
|
| POST | ;Post-init
|
|
| PROVNARB | ;Redo the Provider Narrative "B" index so it is the full
|
|
| RBLDBI | ;Make sure the is only one "B" index for PCE Data Source and
|
|
| RMNCTE | ;Remove the national class entries that were created for testing.
|
|
| RMOLDDDS | ;Remove old data dictionaries.
|
|
| RMPNSCREEN | ;Remove the incorrect Provider Narrative screens.
|
|
| SDPCE | ;Edit the Description and Entry Action of the protocol SDAM PCE EVENT.
|
|
| SETCLASS | ;Until a decision on national entries has been made make everything
|
|
| UPCNAME | ;Make sure all entries have upppercase .01s.
|
|
| VSCINDEX | ;Initialize or rebuild the Clinical Reminders Index for V Standard Codes.
|
|
| VSCITASK | ;Start a TaskMan job the for rebuilding the V Standard Codes
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC |
| ^PX(839.7 - [#839.7] | Classic Fileman Calls |
| ^AUPNVSC - [#9000010.71] | Classic Fileman Calls |
| ^AUTTEDT - [#9999999.09] | Classic Fileman Calls |
| ^AUTNPOV - [#9999999.27] | Classic Fileman Calls |
| ^AUTTHF - [#9999999.64] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSC(0 | VSCINDEX+6 |
| ^AUTNPOV("B" | PROVNARB+5, PROVNARB+12! |
| ^AUTTEDT - [#9999999.09] | BINDEX+9, GENPNAME+9 |
| ^AUTTEDT("B" | BINDEX+7, BINDEX+8, BINDEX+12!, BINDEX+13*, GENPNAME+7, GENPNAME+8, RBLDBI+3!, SETCLASS+5, SETCLASS+7, UPCNAME+7 , UPCNAME+10 |
| ^AUTTEXAM - [#9999999.15] | BINDEX+19, GENPNAME+24 |
| ^AUTTEXAM("B" | BINDEX+17, BINDEX+18, BINDEX+22!, BINDEX+23*, GENPNAME+22, GENPNAME+23, SETCLASS+20, SETCLASS+22, UPCNAME+20, UPCNAME+23 |
| ^AUTTHF - [#9999999.64] | BINDEX+29, GENPNAME+39, HFCAT+5 |
| ^AUTTHF("AD" | HFCAT+4 |
| ^AUTTHF("B" | BINDEX+27, BINDEX+28, BINDEX+32!, BINDEX+33*, GENPNAME+37, GENPNAME+38, SETCLASS+33, SETCLASS+35, UPCNAME+33, UPCNAME+36 |
| ^DD(9000010.07 | RMPNSCREEN+6!, RMPNSCREEN+7! |
| ^DD(9000010.18 | RMPNSCREEN+3!, RMPNSCREEN+4! |
| ^ORD(101 - [#101] | MVTREAT+8, MVTREAT+10* |
| ^PX(839.7 - [#839.7] | ADDDS+1, DSB+3!, RBLDBI+6! |
| ^PXRMINDX(9000010.71 | VSCINDEX+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BNAME | BINDEX+2~, BINDEX+6*, BINDEX+7*, BINDEX+8, BINDEX+10, BINDEX+12, BINDEX+16*, BINDEX+17*, BINDEX+18, BINDEX+20 , BINDEX+22, BINDEX+26*, BINDEX+27*, BINDEX+28, BINDEX+30, BINDEX+32 |
| CF | HFPNAME+1~, HFPNAME+12*, HFPNAME+13 |
| CHAR | HFPNAME+1~, HFPNAME+9*, HFPNAME+11 |
| CLASS | SETCLASS+2~ |
| CNAME | HFCAT+1~, HFCAT+8*, HFCAT+10, HFCAT+14, HFCAT+19 |
| CNAMEIEN | HFCAT+1~, HFCAT+10*, HFCAT+11, HFCAT+14, HFCAT+17, HFCAT+18 |
| CP | HFPNAME+1~, HFPNAME+10*, HFPNAME+11*, HFPNAME+12, HFPNAME+13 |
| DIK | DSB+4~, DSB+5*, PROVNARB+13~, PROVNARB+14*, RBLDBI+2~, RBLDBI+4*, RBLDBI+7*, VSCINDEX+7~, VSCINDEX+9* |
| DIK(1 | DSB+5*, PROVNARB+14*, RBLDBI+4*, RBLDBI+7* |
| DIU | RMOLDDDS+1~, RMOLDDDS+4*, RMOLDDDS+5 |
| DIU(0 | RMOLDDDS+3* |
| FDA | ADDDS+2~, GENPNAME+1~, GENPNAME+11!, GENPNAME+26!, GENPNAME+41!, SDPCE+2~, SETCLASS+2~, SETCLASS+9!, SETCLASS+24!, SETCLASS+37! , UPCNAME+1~, UPCNAME+11!, UPCNAME+24!, UPCNAME+38! |
| FDA( | ADDDS+4*, ADDDS+5*, GENPNAME+15*, GENPNAME+30*, GENPNAME+45*, SETCLASS+13*, SETCLASS+27*, SETCLASS+28*, SETCLASS+39*, UPCNAME+13* , UPCNAME+26*, UPCNAME+39* |
| FDA(101 | SDPCE+11*, SDPCE+12* |
| IEN | BINDEX+2~, BINDEX+8*, BINDEX+9, BINDEX+13, BINDEX+18*, BINDEX+19, BINDEX+23, BINDEX+28*, BINDEX+29, BINDEX+33 , GENPNAME+1~, GENPNAME+8*, GENPNAME+9, GENPNAME+12, GENPNAME+23*, GENPNAME+24, GENPNAME+27, GENPNAME+38*, GENPNAME+39, GENPNAME+42 , HFCAT+1~, HFCAT+3*, HFCAT+4*, HFCAT+5, HFCAT+13, HFCAT+17, HFCAT+18, SDPCE+2~, SDPCE+3*, SDPCE+4 , SDPCE+10, SETCLASS+2~, SETCLASS+7*, SETCLASS+10, SETCLASS+22*, SETCLASS+25, SETCLASS+35*, SETCLASS+38, UPCNAME+1~, UPCNAME+10* , UPCNAME+12, UPCNAME+23*, UPCNAME+25, UPCNAME+36*, UPCNAME+37 |
| IENM | MVTREAT+1~, MVTREAT+2*, MVTREAT+3, MVTREAT+8, MVTREAT+10 |
| IENS | GENPNAME+1~, GENPNAME+12*, GENPNAME+15, GENPNAME+27*, GENPNAME+30, GENPNAME+42*, GENPNAME+45, SDPCE+2~, SDPCE+10*, SDPCE+11 , SDPCE+12, SETCLASS+2~, SETCLASS+10*, SETCLASS+13, SETCLASS+25*, SETCLASS+27, SETCLASS+28, SETCLASS+38*, SETCLASS+39, UPCNAME+1~ , UPCNAME+12*, UPCNAME+13, UPCNAME+25*, UPCNAME+26, UPCNAME+37*, UPCNAME+39 |
| IENT | MVTREAT+1~, MVTREAT+5*, MVTREAT+6, MVTREAT+8 |
| IND | MVTREAT+1~, MVTREAT+8*, MVTREAT+9, MVTREAT+10, SETCLASS+2~ |
| L3C | HFCAT+1~, HFCAT+6*, HFCAT+7 |
| LEN | HFCAT+1~, HFCAT+6*, PROVNARB+3~, PROVNARB+6*, PROVNARB+7 |
| MAXLEN | PROVNARB+3~, PROVNARB+4*, PROVNARB+5, PROVNARB+7*, PROVNARB+8 |
| MSG | ADDDS+2~, GENPNAME+1~, GENPNAME+11!, GENPNAME+26!, GENPNAME+41!, SDPCE+2~, SETCLASS+2~, SETCLASS+9!, SETCLASS+24!, SETCLASS+37! , UPCNAME+1~, UPCNAME+11!, UPCNAME+24!, UPCNAME+38! |
| NAME | BINDEX+2~, BINDEX+9*, BINDEX+10, BINDEX+11, BINDEX+13, BINDEX+19*, BINDEX+20, BINDEX+21, BINDEX+23, BINDEX+29* , BINDEX+30, BINDEX+31, BINDEX+33, GENPNAME+1~, GENPNAME+6*, GENPNAME+7*, GENPNAME+8, GENPNAME+13, GENPNAME+16, GENPNAME+21* , GENPNAME+22*, GENPNAME+23, GENPNAME+28, GENPNAME+31, GENPNAME+36*, GENPNAME+37*, GENPNAME+38, GENPNAME+43, GENPNAME+46, HFCAT+1~ , HFCAT+5*, HFCAT+6, HFCAT+8, HFCAT+13, HFCAT+19, HFPNAME~, HFPNAME+2, HFPNAME+3, HFPNAME+5, PROVNARB+3~ , PROVNARB+4*, PROVNARB+5*, PROVNARB+6, SETCLASS+2~, SETCLASS+4*, SETCLASS+5*, SETCLASS+6, SETCLASS+7, SETCLASS+8, SETCLASS+19* , SETCLASS+20*, SETCLASS+21, SETCLASS+22, SETCLASS+23, SETCLASS+27, SETCLASS+32*, SETCLASS+33*, SETCLASS+34, SETCLASS+35, SETCLASS+36 , UPCNAME+1~, UPCNAME+6*, UPCNAME+7*, UPCNAME+8, UPCNAME+9, UPCNAME+10, UPCNAME+14, UPCNAME+19*, UPCNAME+20*, UPCNAME+21 , UPCNAME+22, UPCNAME+23, UPCNAME+27, UPCNAME+32*, UPCNAME+33*, UPCNAME+34, UPCNAME+35, UPCNAME+36, UPCNAME+40 |
| NRPT | HFCAT+1~, HFCAT+3*, HFCAT+16*, HFCAT+17, HFCAT+18 |
| ONC | HFPNAME+1~, HFPNAME+4*, HFPNAME+5*, HFPNAME+6 |
| PNAME | GENPNAME+1~, GENPNAME+9*, GENPNAME+10, GENPNAME+14*, GENPNAME+15, GENPNAME+17, GENPNAME+24*, GENPNAME+25, GENPNAME+29*, GENPNAME+30 , GENPNAME+32, GENPNAME+39*, GENPNAME+40, GENPNAME+44*, GENPNAME+45, GENPNAME+47, HFPNAME+1~, HFPNAME+2*, HFPNAME+3*, HFPNAME+6* , HFPNAME+7*, HFPNAME+11, HFPNAME+12, HFPNAME+13*, HFPNAME+14 |
| PXNAT | UPCNAME+1~, UPCNAME+2* |
| REPA | GENPNAME+1~, GENPNAME+2, GENPNAME+14, GENPNAME+29, GENPNAME+44, HFPNAME~, HFPNAME+7, HFREPA~ |
| REPA(" Cbc" | HFREPA+4* |
| REPA(" Cc" | HFREPA+4* |
| REPA(" Cvt" | HFREPA+18* |
| REPA(" Ent " | HFREPA+5* |
| REPA(" Gi" | HFREPA+84* |
| REPA(" Hf" | HFREPA+117* |
| REPA(" Ii" | HFREPA+88*, HFREPA+101* |
| REPA(" Iii" | HFREPA+88*, HFREPA+101* |
| REPA(" Iv" | HFREPA+101* |
| REPA(" Mh" | HFREPA+18* |
| REPA(" Oob" | HFREPA+92* |
| REPA(" Pc" | HFREPA+13* |
| REPA(" Rn" | HFREPA+95* |
| REPA(" Ssn" | HFREPA+73* |
| REPA(" Tv" | HFREPA+95* |
| REPA("(Onc) " | , HFREPA+77* |
| REPA("-hcv" | HFREPA+53* |
| REPA("-ied" | HFREPA+38* |
| REPA("-medicaid" | HFREPA+46* |
| REPA("-medicare" | HFREPA+46* |
| REPA("-mh" | HFREPA+60* |
| REPA("-no" | HFREPA+9* |
| REPA("-pt" | HFREPA+102* |
| REPA("-service" | HFREPA+9* |
| REPA("-va" | HFREPA+49* |
| REPA("-yes" | HFREPA+49* |
| REPA("/oif" | HFREPA+61* |
| REPA("/onc" | HFREPA+5* |
| REPA("/pt" | HFREPA+47* |
| REPA("2Nd" | HFREPA+65* |
| REPA("3Rd" | HFREPA+65* |
| REPA("AAa" | HFREPA+57* |
| REPA("Aa " | HFREPA+82* |
| REPA("Aaa" | HFREPA+57* |
| REPA("Abd " | HFREPA+57* |
| REPA("Abg" | HFREPA+2* |
| REPA("Abn " | HFREPA+2* |
| REPA("Act " | HFREPA+66* |
| REPA("Acwy" | HFREPA+58* |
| REPA("Adl" | HFREPA+42* |
| REPA("Aed " | HFREPA+30* |
| REPA("Aeds" | HFREPA+30* |
| REPA("Ah-bpr" | HFREPA+3* |
| REPA("Amb " | HFREPA+82* |
| REPA("Arch" | HFREPA+8* |
| REPA("Bft " | HFREPA+66* |
| REPA("Ca/tbi" | HFREPA+83* |
| REPA("Cant" | HFREPA+83* |
| REPA("Cbt-d" | HFREPA+67* |
| REPA("Cbt-i" | HFREPA+67* |
| REPA("Cg " | HFREPA+12* |
| REPA("Cga " | HFREPA+12* |
| REPA("Cgf" | HFREPA+17* |
| REPA("Cgi" | HFREPA+21* |
| REPA("Cgint" | HFREPA+24* |
| REPA("Cm" | HFREPA+59* |
| REPA("Cog " | HFREPA+67* |
| REPA("Cpap" | HFREPA+42* |
| REPA("Cpt " | HFREPA+68* |
| REPA("Cqs" | HFREPA+68* |
| REPA("Cv " | HFREPA+83* |
| REPA("Dbas " | HFREPA+69* |
| REPA("Dpoa " | HFREPA+43* |
| REPA("Ebp " | HFREPA+69* |
| REPA("Ecoe" | HFREPA+31* |
| REPA("Ecog" | HFREPA+77* |
| REPA("Eeg " | HFREPA+32* |
| REPA("Ef-" | HFREPA+38* |
| REPA("Etoh" | HFREPA+84* |
| REPA("F/u" | HFREPA+117* |
| REPA("Fobt" | HFREPA+59* |
| REPA("Fr " | HFREPA+84* |
| REPA("Fx" | HFREPA+44* |
| REPA("Gec" | HFREPA+44* |
| REPA("Geri " | HFREPA+45* |
| REPA("Gi " | HFREPA+85* |
| REPA("Gu " | HFREPA+86* |
| REPA("Hcv" | HFREPA+53* |
| REPA("Hiv" | HFREPA+54* |
| REPA("Hob " | HFREPA+86* |
| REPA("Hpv" | HFREPA+59* |
| REPA("Iadl" | HFREPA+43* |
| REPA("Ibct " | HFREPA+69* |
| REPA("Ic " | HFREPA+87* |
| REPA("Id-" | HFREPA+87* |
| REPA("Ihd" | HFREPA+60* |
| REPA("Ipt " | HFREPA+70* |
| REPA("Isi " | HFREPA+70* |
| REPA("Iv " | HFREPA+43*, HFREPA+88* |
| REPA("Ldl" | HFREPA+89* |
| REPA("Md " | HFREPA+60* |
| REPA("Mh " | HFREPA+32*, HFREPA+70* |
| REPA("Mri " | HFREPA+32* |
| REPA("Mrsa" | HFREPA+90* |
| REPA("Ms " | HFREPA+90* |
| REPA("Mst" | HFREPA+71* |
| REPA("N/a" | HFREPA+118* |
| REPA("Na " | HFREPA+62* |
| REPA("Nhcu" | HFREPA+47* |
| REPA("Ntf" | HFREPA+90* |
| REPA("ONC " | HFREPA+77* |
| REPA("Oef" | HFREPA+61* |
| REPA("Oif" | HFREPA+61* |
| REPA("Onc Pca | " , HFREPA+78* |
| REPA("Ons " | HFREPA+91* |
| REPA("Pca" | HFREPA+79* |
| REPA("Pcc" | HFREPA+108* |
| REPA("Pct " | HFREPA+71* |
| REPA("Pei " | HFREPA+72* |
| REPA("Pet " | HFREPA+33* |
| REPA("Pf " | HFREPA+92* |
| REPA("Phq9" | HFREPA+72* |
| REPA("Pt-" | HFREPA+47* |
| REPA("Pt/ot" | HFREPA+48* |
| REPA("Ptsd" | HFREPA+98* |
| REPA("Pu " | HFREPA+93* |
| REPA("Q&a" | HFREPA+72* |
| REPA("Q2h" | HFREPA+94* |
| REPA("Qolie" | HFREPA+33* |
| REPA("Ra " | HFREPA+94* |
| REPA("Snq " | HFREPA+73* |
| REPA("Sob" | HFREPA+79* |
| REPA("Sst" | HFREPA+73* |
| REPA("Tb " | HFREPA+62* |
| REPA("Tbi" | HFREPA+34* |
| REPA("Tdi" | HFREPA+105* |
| REPA("Tdr" | HFREPA+105* |
| REPA("Tx-" | HFREPA+48* |
| REPA("Va " | HFREPA+49* |
| REPA("Vanod" | HFREPA+111* |
| REPA("Vc " | HFREPA+114* |
| REPA("Vid " | HFREPA+34* |
| REPA("Vns" | HFREPA+34* |
| REPA("Vsas" | HFREPA+79* |
| REPA("W/o" | HFREPA+27* |
| REPA("W/out" | HFREPA+14* |
| REPA("Wada" | HFREPA+35* |
| REPA("Waso" | HFREPA+74* |
| REPA("Wc " | HFREPA+50* |
| REPA("Wh " | HFREPA+118* |
| REPA("Zbi " | HFREPA+14* |
| REPA("Zzmh" | HFREPA+62* |
| REPA("Zzwh" | HFREPA+118* |
| REPA("amb " | HFREPA+82* |
| REPA("bipap" | HFREPA+42* |
| REPA("hn " | HFREPA+86* |
| REPA("hob" | HFREPA+87* |
| REPA("le<" | HFREPA+117* |
| REPA("rpg" | HFREPA+39* |
| REPA("t+/-30d" | HFREPA+48* |
| REPOINT | HFCAT+1~ |
| REPOINT( | HFCAT+17*, HFCAT+18* |
| RESULT | POST+12~, POST+13* |
| TEXT | RMOLDDDS+1~, RMOLDDDS+5*, RMOLDDDS+6, VSCITASK+2~, VSCITASK+10 |
| TEXT(1 | VSCITASK+3* |
| TEXT(2 | VSCITASK+9* |
| TNAME | GENPNAME+1~, GENPNAME+13*, GENPNAME+14, GENPNAME+28*, GENPNAME+29, GENPNAME+43*, GENPNAME+44 |
| U | BINDEX+9, BINDEX+19, BINDEX+29, GENPNAME+9, GENPNAME+24, GENPNAME+39, HFCAT+5, HFCAT+17, HFCAT+18, MVTREAT+10 , VSCINDEX+6 |
| UPCNAME | UPCNAME+1~, UPCNAME+8*, UPCNAME+9, UPCNAME+13, UPCNAME+15, UPCNAME+21*, UPCNAME+22, UPCNAME+26, UPCNAME+28, UPCNAME+34* , UPCNAME+35, UPCNAME+39, UPCNAME+41 |
| WPTMP | ADDDS+2~, SDPCE+2~ |
| WPTMP(1 | ADDDS+3*, SDPCE+5* |
| WPTMP(2 | SDPCE+6* |
| WPTMP(3 | SDPCE+7* |
| WPTMP(4 | SDPCE+8* |
| WPTMP(5 | SDPCE+9* |
| >> ZTDESC | VSCITASK+5* |
| >> ZTDTH | VSCITASK+6* |
| >> ZTIO | VSCITASK+7* |
| >> ZTREQ | VSCINDEX+13* |
| >> ZTRTN | VSCITASK+4* |
| >> ZTSK | VSCITASK+9 |