©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
AMERPCC ; IHS/OIT/SCR - PRIMARY ROUTINE FOR PCC VISIT CREATION AND EDITING
Source file <AMERPCC.m>
| Package | Total | Call Graph |
|---|---|---|
| Emergency Room | 8 | SYNCCL^AMER2A $$GCLIN^AMERBSD $$EDDISPL^AMEREDAU DIE^AMEREDIT SYNCHERP^AMERERS $$FINDVSIT^AMERPCC ($$ADDPRV,$$PRVTHERE,SYNCHPRV)^AMERPCC1 ($$GETOPIEN,$$GETVOPTN,VSITDIE)^AMERVSIT |
| VA Fileman | 5 | EN^DDIOL ^DIC ^DIE $$GET1^DIQ ^DIR |
| Patient Care Component | 1 | GETVISIT^APCDAPI4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SYNCHPCC(AMERDA) | ; EP from UPDATE^AMERSAV, AMEREDPC, AND AMEREDTA
; This routine will: ; 0. Get the current patient DOB and chart number from patient reg APIs and use them to update the ER VISIT file if different ; 1. Identify an exisisting visit or make a new one ; 2. Update VISIT entry with ; 2a."CHIEF COMPLAINT" if different from ER VISIT Presenting Complaint ; 2b."CHECKOUT DAY AND TIME" if different from ER VISIT departure time ; 2C."OPTION USED TO CREATE" to "AMER IHS PCC LINK" if empty |
|
| SAVPCCO(AMERPCC,AMERDA) | ; EP FROM AMER CHANGPAT^AMERVSIT
; WHEN AN ADMISSION AND PCC VISIT HAS JUST BEEN CREATED OR WHEN PATIENT IS BEING CHANGED AND A NEW PCC VISIT IS CREATED ; UPDATES THE ER ADMISSION FILE WITH THE PCC VISIT IEN ASSOCIATED TO IT ; INPUT AMERPCC - THE IEN OF THE PCC VISIT FILE ENTRY ; AMERDATE - THE DATE/TIME OF ADMISSION |
|
| VPROVTRG(AMERDFN,AMERPCC) | ||
| VISIT(AMERPAT,AMERDATE) | ; EP from AMER1 when patient is admitted W/O PIMS interface CHEKIN^AMERBSDU
; If site has indicated a CLINIC in paramaters, a scheduled walk-in visit is created ; and a PCC VISIT record is created by PIMS SCHEDULING (BSDU) pacage ; If not a PCC VISIT record created by ERS PACKAGE ; 1. Look for VISIT created at checkin ; 2. Create a VISIT if none exists for this patient on this date from this location ; 3. Return VISIT IEN if successful, 0 otherwise |
|
| FINDVSIT(AMERDA) | ||
| SCHEDULD(AMERPAT,AMERDATE,AMERSCHD) | ; EP from ERCHCKIN^AMERBDSU
; Called when user has selected to check-in ER patient for scheduled visit ; INPUT: AMERPAT - ien of PATIENT ; AMERDATE - the date and time of ER ADMISSION ; AMERSCHD - the date and time of scheduled ER APPOINTMENT |
|
| SAVPCCA(AMERPCC,AMERDFN) | ; EP FROM AMER WHEN AN ADMISSION AND PCC VISIT HAS JUST BEEN CREATED
; UPDATES THE ER ADMISSION FILE WITH THE PCC VISIT IEN ASSOCIATED WITH IT ; INPUT AMERPCC - THE IEN OF THE PCC VISIT ; AMERDFN - THE IEN OF THE PATIENT |
|
| EXISTING(AMERDFN) | ; EP FROM TRGSET^AMERD
; RETURNS VISIT IEN for patient that has not yet been discharged |
|
| VISITIN(AMERDFN,AMERPCC) |
| Name | Field # of Occurrence |
|---|---|
| SYNCCL^AMER2A | SYNCHPCC+38 |
| $$GCLIN^AMERBSD | VISIT+15 |
| $$EDDISPL^AMEREDAU | SYNCHPCC+70, SYNCHPCC+71 |
| DIE^AMEREDIT | SYNCHPCC+57, SYNCHPCC+82 |
| SYNCHERP^AMERERS | SYNCHPCC+32 |
| $$FINDVSIT^AMERPCC | SYNCHPCC+34 |
| $$ADDPRV^AMERPCC1 | VPROVTRG+29 |
| $$PRVTHERE^AMERPCC1 | VPROVTRG+28 |
| SYNCHPRV^AMERPCC1 | SYNCHPCC+96 |
| $$GETOPIEN^AMERVSIT | VISIT+59, SYNCHPCC+93 |
| $$GETVOPTN^AMERVSIT | VISIT+58 |
| VSITDIE^AMERVSIT | VISIT+61, VPROVTRG+32, VISITIN+13, SYNCHPCC+94 |
| GETVISIT^APCDAPI4 | VISIT+42, SCHEDULD+24 |
| EN^DDIOL | VISIT+44, VISIT+51, SCHEDULD+26, SCHEDULD+33, VPROVTRG+29, SYNCHPCC+47, SYNCHPCC+48, SYNCHPCC+49, SYNCHPCC+72, SYNCHPCC+73 , SYNCHPCC+74, SAVPCCA+12, SAVPCCO+13 |
| ^DIC | EXISTING+4, VPROVTRG+10, VISITIN+6 |
| ^DIE | SAVPCCA+9, SAVPCCO+10 |
| $$GET1^DIQ | VISIT+10 |
| ^DIR | SYNCHPCC+52, SYNCHPCC+77 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AMERVSIT - [#9009080] | Classic Fileman Calls |
| ^AMERADM - [#9009081] | Classic Fileman Calls |
| ^AMER(2.5 - [#9009082.5] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AMER(2.5 - [#9009082.5] | SCHEDULD+21 |
| ^AMER(3 - [#9009083] | VISIT+13 |
| ^AMERADM - [#9009081] | EXISTING+7, VISITIN+11 |
| ^AMERVSIT - [#9009080] | FINDVSIT+7, SYNCHPCC+24, SYNCHPCC+27, SYNCHPCC+29, SYNCHPCC+33, SYNCHPCC+41, SYNCHPCC+65, SYNCHPCC+97 |
| ^APCCCTRL - [#9001000] | VISIT+34, SCHEDULD+19 |
| ^AUPNVSIT - [#9000010] | VPROVTRG+13, SYNCHPCC+42, SYNCHPCC+48, SYNCHPCC+66, SYNCHPCC+92 |
| ^FILE(9009080 | SAVPCCO+8, SAVPCCO+11 |
| ^FILE(9009081 | SAVPCCA+7, SAVPCCA+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AMERANS | SYNCHPCC+53*, SYNCHPCC+54, SYNCHPCC+59, SYNCHPCC+78*, SYNCHPCC+79, SYNCHPCC+84 |
| AMERCLN | SYNCHPCC+21~, SYNCHPCC+26* |
| AMERCLNC | VPROVTRG+6~ |
| AMERCOMP | VPROVTRG+14*, VPROVTRG+15, VISITIN+4~, VISITIN+11*, VISITIN+12 |
| AMERDA | FINDVSIT~, FINDVSIT+7, SYNCHPCC~, SYNCHPCC+24, SYNCHPCC+27, SYNCHPCC+29, SYNCHPCC+32, SYNCHPCC+33, SYNCHPCC+34, SYNCHPCC+38 , SYNCHPCC+41, SYNCHPCC+57, SYNCHPCC+65, SYNCHPCC+82, SYNCHPCC+96, SYNCHPCC+97, SAVPCCO~, SAVPCCO+7 |
| AMERDATE | VISIT~, VISIT+30, VISIT+38, SCHEDULD~, SCHEDULD+10, SCHEDULD+13, SYNCHPCC+21~, SYNCHPCC+26*, SYNCHPCC+27*, SYNCHPCC+28 |
| AMERDEPT | SYNCHPCC+21~, SYNCHPCC+33* |
| AMERDFN | EXISTING~, EXISTING+3, EXISTING+7, FINDVSIT+6~, VPROVTRG~, VPROVTRG+9, VPROVTRG+29, VISITIN~, VISITIN+5, VISITIN+11 , SAVPCCA~, SAVPCCA+6 |
| AMERDIFF | SCHEDULD+8~, SCHEDULD+10*, SCHEDULD+11*, SCHEDULD+23 |
| AMERDOB | SYNCHPCC+23~ |
| AMERDOC | SYNCHPCC+21~, SYNCHPCC+97* |
| AMERDR | FINDVSIT+6~, SYNCHPCC+23~, SYNCHPCC+56*, SYNCHPCC+57, SYNCHPCC+81*, SYNCHPCC+82 |
| AMERETIM | SYNCHPCC+22~, SYNCHPCC+23~, SYNCHPCC+71*, SYNCHPCC+74 |
| AMEREVAL | SYNCHPCC+22~, SYNCHPCC+41*, SYNCHPCC+44, SYNCHPCC+45, SYNCHPCC+49, SYNCHPCC+61, SYNCHPCC+65*, SYNCHPCC+67, SYNCHPCC+71, SYNCHPCC+86 , SYNCHPCC+89, SYNCHPCC+95! |
| AMERFND | SYNCHPCC+22~ |
| AMERHRN | SYNCHPCC+23~ |
| AMERNEW | SYNCHPCC+22~ |
| AMEROPT | VISIT+7~, VISIT+59*, VISIT+60 |
| AMERPAT | VISIT~, VISIT+29, SCHEDULD~, SCHEDULD+12, SYNCHPCC+21~, SYNCHPCC+26*, SYNCHPCC+29*, SYNCHPCC+30, SYNCHPCC+32, SYNCHPCC+96 |
| AMERPCC | VPROVTRG~, VPROVTRG+13, VPROVTRG+28, VPROVTRG+29, VPROVTRG+32, VISITIN~, VISITIN+13, SYNCHPCC+21~, SYNCHPCC+34*, SYNCHPCC+35 , SYNCHPCC+38, SYNCHPCC+42, SYNCHPCC+48, SYNCHPCC+66, SYNCHPCC+92, SYNCHPCC+94, SYNCHPCC+96, SAVPCCA~, SAVPCCA+5, SAVPCCO~ , SAVPCCO+6 |
| AMERPIEN | VPROVTRG+6~, VPROVTRG+24*, VPROVTRG+28, VPROVTRG+29 |
| AMERPNTR | SYNCHPCC+23~ |
| AMERPROV | VPROVTRG+6~ |
| AMERQUIT | SYNCHPCC+21~ |
| AMERSCHD | SCHEDULD~, SCHEDULD+10, SCHEDULD+16 |
| AMERTEMP | VISIT+48*, VISIT+50*, VISIT+51, VISIT+52, VISIT+55, EXISTING+2~, SCHEDULD+30*, SCHEDULD+32*, SCHEDULD+33, SCHEDULD+34 , SCHEDULD+37, FINDVSIT+5~ |
| AMERTIME | VPROVTRG+6~, VPROVTRG+25*, VPROVTRG+26*, VPROVTRG+29 |
| AMERVDR | VISIT+7~, VISIT+28*, VISIT+60*, VISIT+61, VPROVTRG+6~, VPROVTRG+7*, VPROVTRG+15*, VPROVTRG+32, VISITIN+4~, VISITIN+12* , VISITIN+13, SYNCHPCC+22~, SYNCHPCC+26*, SYNCHPCC+44*, SYNCHPCC+61*, SYNCHPCC+86*, SYNCHPCC+89*, SYNCHPCC+93*, SYNCHPCC+94, SYNCHPCC+95! |
| AMERVIEN | SYNCHPCC+22~ |
| AMERVOPT | SYNCHPCC+23~ |
| AMERVSIT | VISIT+7~, VISIT+28*, VISIT+45*, VISIT+47, VISIT+52*, VISIT+55*, VISIT+57, VISIT+58, VISIT+61, VISIT+63 , EXISTING+2~, EXISTING+7*, EXISTING+8, SCHEDULD+8~, SCHEDULD+9*, SCHEDULD+27*, SCHEDULD+29, SCHEDULD+34*, SCHEDULD+37*, SCHEDULD+38 , FINDVSIT+5~, FINDVSIT+7*, FINDVSIT+8*, FINDVSIT+9 |
| AMERVTIM | SYNCHPCC+22~, SYNCHPCC+23~, SYNCHPCC+70*, SYNCHPCC+73 |
| AMERVVAL | VPROVTRG+6~, VPROVTRG+13*, VPROVTRG+15, SYNCHPCC+22~, SYNCHPCC+42*, SYNCHPCC+43*, SYNCHPCC+44, SYNCHPCC+45, SYNCHPCC+56, SYNCHPCC+66* , SYNCHPCC+67, SYNCHPCC+68, SYNCHPCC+70, SYNCHPCC+81, SYNCHPCC+92*, SYNCHPCC+93, SYNCHPCC+95! |
| AMRSTRG | SYNCHPCC+21~ |
| CLIN | VISIT+7~, VISIT+10*, VISIT+13*, VISIT+15*, VISIT+16*, VISIT+24 |
| DA | SAVPCCA+4~, SAVPCCA+6*, SAVPCCO+5~, SAVPCCO+7* |
| DIC | EXISTING+2~, EXISTING+3*, EXISTING+5!, FINDVSIT+5~, VPROVTRG+6~, VPROVTRG+9*, VPROVTRG+11!, VISITIN+4~, VISITIN+5*, VISITIN+7! |
| DIC(0 | EXISTING+3*, VPROVTRG+9*, VISITIN+5* |
| DIE | SAVPCCA+4~, SAVPCCA+6*, SAVPCCO+5~, SAVPCCO+7* |
| DIR | SYNCHPCC+52!, SYNCHPCC+77! |
| DIR("A" | SYNCHPCC+51*, SYNCHPCC+76* |
| DIR(0 | SYNCHPCC+50*, SYNCHPCC+75* |
| DR | SAVPCCA+4~, SAVPCCA+5*, SAVPCCO+5~, SAVPCCO+6* |
| DUZ | VISIT+35, SCHEDULD+20 |
| DUZ(2 | VISIT+10, VISIT+31, VISIT+34, SCHEDULD+14, SCHEDULD+19, SCHEDULD+21 |
| HLOC | VISIT+7~, VISIT+16*, VISIT+18, VISIT+23 |
| IN | VISIT+7~, VISIT+42, EXISTING+2~, SCHEDULD+8~, SCHEDULD+24, FINDVSIT+5~ |
| IN("APPT DATE | " , VISIT+38*, SCHEDULD+16* |
| IN("CLINIC CO | DE" , VISIT+24* |
| IN("HOS LOC" | VISIT+23*, VISIT+38, SCHEDULD+21* |
| IN("PAT" | VISIT+29*, SCHEDULD+12* |
| IN("SITE" | VISIT+31*, SCHEDULD+14* |
| IN("SRV CAT" | VISIT+39*, SCHEDULD+22* |
| IN("TIME RANG | E" , VISIT+40*, SCHEDULD+23* |
| IN("USR" | VISIT+35*, SCHEDULD+20* |
| IN("VISIT DAT | E" , VISIT+30*, SCHEDULD+13* |
| IN("VISIT TYP | E" , VISIT+34*, SCHEDULD+19* |
| OUT | VISIT+7~, VISIT+42, EXISTING+2~, SCHEDULD+8~, SCHEDULD+24, FINDVSIT+5~ |
| OUT( | VISIT+50, VISIT+55, SCHEDULD+32, SCHEDULD+37 |
| OUT(0 | VISIT+43, VISIT+45, VISIT+49, VISIT+55, SCHEDULD+25, SCHEDULD+27, SCHEDULD+31, SCHEDULD+37 |
| U | VISIT+16, VISIT+34, VISIT+43, VISIT+45, VISIT+49, VISIT+55, EXISTING+7, SCHEDULD+19, SCHEDULD+25, SCHEDULD+27 , SCHEDULD+31, SCHEDULD+37, FINDVSIT+7, VPROVTRG+14, VPROVTRG+24, VPROVTRG+25, VPROVTRG+26, SYNCHPCC+27, SYNCHPCC+29, SYNCHPCC+33 , SYNCHPCC+65, SYNCHPCC+92, SYNCHPCC+97 |
| X | VISIT+7~, EXISTING+3*, SCHEDULD+8~, VPROVTRG+9*, VISITIN+5* |
| Y | EXISTING+2~, EXISTING+6, FINDVSIT+5~, VPROVTRG+6~, VPROVTRG+12, VISITIN+4~, VISITIN+8, SYNCHPCC+53, SYNCHPCC+54, SYNCHPCC+78 , SYNCHPCC+79 |
| Y(0 | VPROVTRG+14, VPROVTRG+24, VPROVTRG+25, VPROVTRG+26 |