©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
AMEREDPC ; IHS/OIT/SCR - SUB ROUTINE FOR PCC VISIT CREATION;
Source file <AMEREDPC.m>
| Package | Total | Call Graph |
|---|---|---|
| Emergency Room | 3 | SYNCHPCC^AMERPCC $$TCOMP^AMERTIME $$AICD^AMERUTIL |
| VA Fileman | 3 | (,NOW)^%DTC EN^DDIOL $$GET1^DIQ |
| DRG Grouper | 2 | $$ICDDX^ICDCODE $$ICDDX^ICDEX |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHKVSIT(AMERDA,AMERAIEN) | ; EP FROM AMEREDIT to validate and save PCC information
; AMERDA - IEN OF ER VISIT ; AMERAIEN - IEN OF AUDIT RECORD - IF "", NOT IN EDIT MODE ; CHECK for required elements of a PCC Visit ; 1. Primary Provider is in Provider file ; 2. Primary DX and Narrative exist as valid codes/strings ; 3. Valid patient IEN ; 4. Dates make sense and are not in the future |
|
| PCCERROR(PROVIDER,PRIMNAR,PRIMDIAG,PATIENT,AMERDATE,AMERDSCH) |
| Name | Field # of Occurrence |
|---|---|
| ^%DTC | CHKVSIT+43 |
| NOW^%DTC | CHKVSIT+41 |
| SYNCHPCC^AMERPCC | CHKVSIT+67 |
| $$TCOMP^AMERTIME | CHKVSIT+51 |
| $$AICD^AMERUTIL | CHKVSIT+26 |
| EN^DDIOL | CHKVSIT+54, CHKVSIT+61, CHKVSIT+62, CHKVSIT+63, CHKVSIT+64, CHKVSIT+65 |
| $$GET1^DIQ | CHKVSIT+25 |
| $$ICDDX^ICDCODE | CHKVSIT+27 |
| $$ICDDX^ICDEX | CHKVSIT+26 |
| FileNo | Call Tags |
|---|---|
| ^AMERVSIT - [#9009080] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AMERVSIT - [#9009080] | CHKVSIT+14, CHKVSIT+20, CHKVSIT+21, CHKVSIT+33, CHKVSIT+35, CHKVSIT+36, CHKVSIT+40, CHKVSIT+48, CHKVSIT+49, CHKVSIT+53 |
| ^DPT - [#2] | CHKVSIT+37 |
| ^VA(200 - [#200] | CHKVSIT+16 |
| Name | Line Occurrences |
|---|---|
| $$PCCERROR | CHKVSIT+58 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | CHKVSIT+42 |
| AMERAIEN | CHKVSIT~ |
| AMERDA | CHKVSIT~, CHKVSIT+14, CHKVSIT+20, CHKVSIT+21, CHKVSIT+25, CHKVSIT+33, CHKVSIT+35, CHKVSIT+36, CHKVSIT+40, CHKVSIT+48 , CHKVSIT+49, CHKVSIT+53, CHKVSIT+67 |
| AMERDATE | CHKVSIT+10~, CHKVSIT+44*, CHKVSIT+58, CHKVSIT+70!, PCCERROR~, PCCERROR+6 |
| AMERDEPT | CHKVSIT+10~, CHKVSIT+49*, CHKVSIT+51, CHKVSIT+70! |
| AMERDSCH | CHKVSIT+10~, CHKVSIT+11*, CHKVSIT+51*, CHKVSIT+55*, CHKVSIT+58, CHKVSIT+70!, PCCERROR~, PCCERROR+7 |
| AMERDX | CHKVSIT+10~, CHKVSIT+21*, CHKVSIT+26, CHKVSIT+27, CHKVSIT+28, CHKVSIT+70! |
| AMERERR | CHKVSIT+10~, CHKVSIT+58*, CHKVSIT+59, CHKVSIT+63, PCCERROR+1*, PCCERROR+2*, PCCERROR+3*, PCCERROR+4*, PCCERROR+5*, PCCERROR+6* , PCCERROR+7*, PCCERROR+8 |
| >> AMERI | CHKVSIT+63* |
| AMERNAR | CHKVSIT+9~, CHKVSIT+11*, CHKVSIT+21*, CHKVSIT+31, CHKVSIT+69! |
| AMERPAT | CHKVSIT+10~, CHKVSIT+36*, CHKVSIT+37, CHKVSIT+70! |
| AMERPRIM | CHKVSIT+9~, CHKVSIT+69! |
| AMERPROV | CHKVSIT+10~, CHKVSIT+13*, CHKVSIT+14*, CHKVSIT+15, CHKVSIT+16, CHKVSIT+18, CHKVSIT+70! |
| AMERQUIT | CHKVSIT+9~, CHKVSIT+11*, CHKVSIT+60*, CHKVSIT+68, CHKVSIT+69! |
| AMERTIME | CHKVSIT+9~, CHKVSIT+10~, CHKVSIT+11*, CHKVSIT+40*, CHKVSIT+42, CHKVSIT+44, CHKVSIT+51, CHKVSIT+69!, CHKVSIT+70! |
| >> AMERWRIT | CHKVSIT+63* |
| APCDTNQ | CHKVSIT+9~, CHKVSIT+11*, CHKVSIT+31*, CHKVSIT+33*, CHKVSIT+58, CHKVSIT+69! |
| >> APCDTPAT | CHKVSIT+11*, CHKVSIT+37*, CHKVSIT+58 |
| APCDTPOV | CHKVSIT+9~, CHKVSIT+11*, CHKVSIT+28*, CHKVSIT+29*, CHKVSIT+33*, CHKVSIT+58, CHKVSIT+69! |
| APCDTPRO | CHKVSIT+9~, CHKVSIT+11*, CHKVSIT+16*, CHKVSIT+18*, CHKVSIT+58, CHKVSIT+69! |
| APCTPAT | CHKVSIT+9~, CHKVSIT+69! |
| ICDINFO | CHKVSIT+24~, CHKVSIT+26*, CHKVSIT+27*, CHKVSIT+28 |
| PATIENT | PCCERROR~, PCCERROR+5 |
| PRIMDIAG | PCCERROR~, PCCERROR+4 |
| PRIMNAR | PCCERROR~, PCCERROR+3 |
| PROVIDER | PCCERROR~, PCCERROR+2 |
| U | CHKVSIT+14, CHKVSIT+16, CHKVSIT+20, CHKVSIT+21, CHKVSIT+28, CHKVSIT+33, CHKVSIT+35, CHKVSIT+36, CHKVSIT+40, CHKVSIT+49 , CHKVSIT+63 |
| VDATE | CHKVSIT+24~, CHKVSIT+25*, CHKVSIT+26, CHKVSIT+27 |
| >> X | CHKVSIT+44 |
| >> X1 | CHKVSIT+42* |
| >> X2 | CHKVSIT+42* |