©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ABMDVCK0 ; IHS/ASDST/DMJ - PCC Visit Edits ;
Source file <ABMDVCK0.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | (,C)^%DTC ^DIE $$GET1^DIQ |
| Third Party Billing | 2 | ELG^ABMDLCK ($$MISSPOV,$$ORPHAN,INS,PCFL)^ABMDVCK2 |
| Package | Total | Caller Graph |
|---|---|---|
| Third Party Billing | 2 | ABMDE0X1 ABMDVCK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IN72HVIS(ABMVIEN) | ;Extrinsic to tell if visit is inside 72 hour rule
|
|
| IN72H(ABMCLMNO) | ;EP
|
|
| RULE72H | ; Done if admission within 72 hours found.
|
|
| QNOKILAB | ||
| VCHX(ABMVDFN) | ;EP - CHECK EACH VISIT
|
| Name | Field # of Occurrence |
|---|---|
| ^%DTC | VCHX+122 |
| C^%DTC | VCHX+80, VCHX+135, VCHX+151, IN72HVIS+11, IN72HVIS+23, IN72HVIS+38, IN72HVIS+55, IN72HVIS+60 |
| ELG^ABMDLCK | VCHX+157 |
| $$MISSPOV^ABMDVCK2 | VCHX+140 |
| $$ORPHAN^ABMDVCK2 | VCHX+153 |
| INS^ABMDVCK2 | QNOKILAB+7 |
| PCFL^ABMDVCK2 | VCHX+12, VCHX+21, VCHX+27, VCHX+47, VCHX+51, VCHX+60, VCHX+64, VCHX+67, VCHX+70, VCHX+73 , VCHX+77, VCHX+86, VCHX+89, VCHX+92, VCHX+96, VCHX+101, VCHX+104, VCHX+107, VCHX+113, VCHX+126 , VCHX+138, VCHX+142, VCHX+155, VCHX+160, VCHX+163, VCHX+170, VCHX+171, VCHX+175, VCHX+206 |
| ^DIE | RULE72H+12 |
| $$GET1^DIQ | VCHX+117 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^AUPNVSIT - [#9000010] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDCLM - [#9002274.3] | VCHX+19, VCHX+179, VCHX+182, RULE72H+7, IN72H+3, IN72H+4 |
| ^ABMDPARM( | VCHX+18, VCHX+20, VCHX+77, VCHX+79, VCHX+92, VCHX+114, VCHX+130 |
| ^ABMNINS( | VCHX+201, VCHX+202 |
| ^ABPVFAC("PC" | VCHX+89 |
| ^AUPNVINP("AA" | IN72HVIS+48, IN72HVIS+50 |
| ^AUPNVPOV("AD" | VCHX+132 |
| ^AUPNVPRV("AD" | VCHX+148 |
| ^AUPNVSIT - [#9000010] | VCHX+2, VCHX+3, IN72HVIS+1, IN72HVIS+4, IN72HVIS+6, IN72HVIS+8 |
| ^AUPNVSIT("AA" | IN72HVIS+14, IN72HVIS+16, IN72HVIS+26, IN72HVIS+28 |
| ^AUPNVSIT("AAH" | IN72HVIS+41, IN72HVIS+44, IN72HVIS+63, IN72HVIS+66 |
| ^AUTTLOC - [#9999999.06] | VCHX+104 |
| ^BAR(90052.05 | VCHX+24, VCHX+25, VCHX+26, VCHX+45, VCHX+46, VCHX+50 |
| ^DIC(40.7 - [#40.7] | VCHX+107 |
| ^DPT - [#2] | VCHX+101 |
| ^TMP($J | VCHX+14*, VCHX+23*, VCHX+29*, VCHX+49*, VCHX+53*, VCHX+54* |
| Name | Line Occurrences |
|---|---|
| $$IN72HVIS | VCHX+203, IN72H+6 |
| QNOKILAB | VCHX+208 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | VCHX+50 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ABM72 | VCHX+203*, VCHX+204, IN72HVIS+7*, IN72HVIS+8, IN72HVIS+18*, IN72HVIS+30*, IN72HVIS+45*, IN72HVIS+51*, IN72HVIS+67*, IN72HVIS+68 |
| >> ABMARPS | VCHX+18*, VCHX+19*, VCHX+20, VCHX+24, VCHX+44, VCHX+45, VCHX+46, VCHX+50 |
| ABMCHV0 | VCHX+1~, VCHX+3*, VCHX+4, VCHX+5, VCHX+59, VCHX+64, VCHX+67, VCHX+70, VCHX+73, VCHX+82 , VCHX+96, VCHX+112, VCHX+126, VCHX+157, RULE72H+5 |
| ABMCHVDT | VCHX+1~, VCHX+4*, VCHX+121 |
| ABMCLMNO | IN72H~, IN72H+2, IN72H+3, IN72H+4 |
| ABMIDONE | QNOKILAB+2~, QNOKILAB+3* |
| >> ABMINS2 | VCHX+167*, VCHX+168*, VCHX+169 |
| >> ABMIPGMN | VCHX+111*, VCHX+112, VCHX+124*, VCHX+141, VCHX+148 |
| >> ABML | VCHX+157, VCHX+163 |
| >> ABML( | VCHX+186, VCHX+187, VCHX+188, VCHX+192, VCHX+193, QNOKILAB+7 |
| >> ABML("" | VCHX+166, VCHX+175, VCHX+191 |
| >> ABML(99 | VCHX+168, VCHX+169 |
| ABMNO | VCHX+169*, VCHX+170, VCHX+171, VCHX+172! |
| >> ABMNOELG | VCHX+160 |
| ABMORLAG | VCHX+129~, VCHX+130*, VCHX+131*, VCHX+134, VCHX+150 |
| >> ABMP("CDFN" | RULE72H+8*, QNOKILAB+1 |
| >> ABMP("CLN" | VCHX+82*, VCHX+83*, VCHX+92, VCHX+97*, VCHX+107 |
| >> ABMP("DDT" | IN72HVIS+21 |
| >> ABMP("DENTDONE" | QNOKILAB+5! |
| >> ABMP("FLAG1" | VCHX+13*, VCHX+22*, VCHX+28*, VCHX+48*, VCHX+52*, VCHX+55* |
| >> ABMP("LDFN" | VCHX+5*, VCHX+11, VCHX+19, VCHX+20, VCHX+24, VCHX+25, VCHX+26, VCHX+44, VCHX+45, VCHX+46 , VCHX+50 |
| >> ABMP("LOCKFAIL" | QNOKILAB+7 |
| >> ABMP("MEDSCHKD" | QNOKILAB+5! |
| >> ABMP("NOKILLABILL" | VCHX+123*, VCHX+137*, VCHX+144, VCHX+152*, VCHX+156, VCHX+205*, RULE72H+3!, QNOKILAB, QNOKILAB+7 |
| >> ABMP("OPONADMIT" | VCHX+198!, RULE72H+1* |
| >> ABMP("PDFN" | VCHX+81*, VCHX+86, VCHX+89, VCHX+101, VCHX+116, VCHX+157, IN72HVIS+6*, IN72HVIS+14, IN72HVIS+16, IN72HVIS+26 , IN72HVIS+28, IN72HVIS+41, IN72HVIS+44, IN72HVIS+48, IN72HVIS+50, IN72HVIS+63, IN72HVIS+66 |
| >> ABMP("PRI" | QNOKILAB+6*, QNOKILAB+7* |
| >> ABMP("PRIMVSIT" | VCHX+197!, RULE72H+2! |
| >> ABMP("RXDONE" | QNOKILAB+5! |
| >> ABMP("V0" | VCHX+58, VCHX+59, VCHX+60, VCHX+77, VCHX+81, VCHX+89, VCHX+157 |
| >> ABMP("VDT" | VCHX+46, VCHX+50, VCHX+133, VCHX+149, VCHX+157, IN72HVIS+3, IN72HVIS+4*, IN72HVIS+5*, IN72HVIS+9, IN72HVIS+13 , IN72HVIS+24, IN72HVIS+36, IN72HVIS+40, IN72HVIS+47, IN72HVIS+53, IN72HVIS+58, IN72HVIS+61 |
| >> ABMPARNT | VCHX+132 |
| ABMPRIEN | VCHX+177~, VCHX+189*, VCHX+194*, VCHX+201, VCHX+202 |
| ABMPRIM | VCHX+176~, VCHX+186, VCHX+188*, VCHX+190, VCHX+193*, VCHX+195*, VCHX+200, VCHX+201, VCHX+202 |
| ABMRDM3 | IN72HVIS+2~, IN72HVIS+12*, IN72HVIS+14, IN72HVIS+24*, IN72HVIS+26, IN72HVIS+39*, IN72HVIS+41, IN72HVIS+48, IN72HVIS+61*, IN72HVIS+63 |
| ABMV | VCHX+1~, RULE72H+7, RULE72H+11, IN72HVIS+15*, IN72HVIS+16*, IN72HVIS+17, IN72HVIS+27*, IN72HVIS+28*, IN72HVIS+29, IN72HVIS+43* , IN72HVIS+44*, IN72HVIS+49*, IN72HVIS+50*, IN72HVIS+65*, IN72HVIS+66* |
| ABMVDFN | VCHX~, VCHX+2, VCHX+3, VCHX+14, VCHX+19, VCHX+23, VCHX+29, VCHX+49, VCHX+53, VCHX+54 , VCHX+132, VCHX+140, VCHX+148, VCHX+153, VCHX+157, VCHX+179, VCHX+197, VCHX+203, RULE72H+10 |
| ABMVIEN | IN72H+3*, IN72H+4*, IN72H+5, IN72H+6, IN72HVIS~, IN72HVIS+1, IN72HVIS+4, IN72HVIS+6, IN72HVIS+8, IN72HVIS+17 , IN72HVIS+29 |
| >> DA | RULE72H+10* |
| >> DIE | RULE72H+9* |
| >> DR | RULE72H+11* |
| DT | VCHX+78, VCHX+120, VCHX+136, VCHX+152, IN72HVIS+56 |
| DUZ(2 | VCHX+18, VCHX+24, VCHX+26, VCHX+44, VCHX+45, VCHX+46, VCHX+50, VCHX+77, VCHX+79, VCHX+92 , VCHX+104, VCHX+114, VCHX+130, VCHX+179, VCHX+182, VCHX+201, VCHX+202, RULE72H+7, IN72H+3, IN72H+4 |
| I | VCHX+176~, VCHX+182*, VCHX+184, VCHX+187, VCHX+188, VCHX+189, VCHX+192*, VCHX+193, VCHX+194 |
| IENS | VCHX+116*, VCHX+117, VCHX+118! |
| NOCLAIM | VCHX+196~, VCHX+207*, RULE72H+5*, RULE72H+14*, QNOKILAB+1 |
| OK | VCHX+129~, VCHX+132, VCHX+139*, VCHX+140*, VCHX+141*, VCHX+142, VCHX+148, VCHX+153*, VCHX+154 |
| P | VCHX+176~, VCHX+185*, VCHX+186*, VCHX+187, VCHX+188, VCHX+191*, VCHX+192, VCHX+193 |
| >> SERVCAT | VCHX+83, VCHX+115, VCHX+132, VCHX+198, VCHX+200 |
| U | VCHX+4, VCHX+58, VCHX+60, VCHX+64, VCHX+67, VCHX+77, VCHX+79, VCHX+81, VCHX+82, VCHX+89 , VCHX+96, VCHX+112, VCHX+114, VCHX+126, VCHX+130, VCHX+169, VCHX+182, VCHX+188, VCHX+193, VCHX+201 , VCHX+202, RULE72H+5, IN72HVIS+6, IN72HVIS+8 |
| W | IN72HVIS+2~, IN72HVIS+13*, IN72HVIS+14*, IN72HVIS+16, IN72HVIS+25*, IN72HVIS+26*, IN72HVIS+28, IN72HVIS+40*, IN72HVIS+41*, IN72HVIS+44 , IN72HVIS+47*, IN72HVIS+48*, IN72HVIS+50, IN72HVIS+62*, IN72HVIS+63*, IN72HVIS+66 |
| >> X | VCHX+77, VCHX+117*, VCHX+119, VCHX+123, VCHX+136, VCHX+152, IN72HVIS+12, IN72HVIS+25, IN72HVIS+39, IN72HVIS+56 , IN72HVIS+62 |
| >> X1 | VCHX+78*, VCHX+120*, VCHX+133*, VCHX+149*, IN72HVIS+9*, IN72HVIS+21*, IN72HVIS+36*, IN72HVIS+53*, IN72HVIS+58* |
| >> X2 | VCHX+79*, VCHX+121*, VCHX+134*, VCHX+150*, IN72HVIS+10*, IN72HVIS+22*, IN72HVIS+37*, IN72HVIS+54*, IN72HVIS+59* |
| >> Y | VCHX+179*, VCHX+180, VCHX+182, RULE72H+7*, RULE72H+8 |