©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
APSPPCCV ;IHS/CIA/DKM/PLS - PCC Data Management ;26-Oct-2015 17:40;DU
Source file <APSPPCCV.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | $$FIND1^DIC UPDATE^DIE $$ROOT^DILFD $$GET1^DIQ |
| DRG Grouper | 3 | $$CODEN^ICDCODE $$CODEN^ICDEX $$CPT^ICPTCOD |
| CIA Utilities | 1 | $$SET^CIAU |
| IHS Changes To Scheduling | 1 | GETVISIT^BSDAPI4 |
| IHS Standard Terminology | 1 | $$CONC^BSTSAPI |
| Kernel | 1 | $$VERSION^XPDUTL |
| MSC RPC Broker | 1 | BRDCAST^CIANBEVT |
| PCE Patient Care Encounter | 1 | $$VID2IEN^VSIT |
| Patient Care Component | 1 | EN^APCDVDLT |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Changes To Pharmacy | 2 | APSPPCC APSPPCC2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAKEVST(CRIT) | ;
|
|
| STORE(FN,CF,CRT) | ;EP
|
|
| VSTR2VIS(DFN,VSTR,CREATE,PRV,PDIV,PRF) | ;EP
|
|
| EVAL(ARY) | ;EP
|
|
| DELVSIT(VST) | ;EP
|
|
| LOOK(TYP,ARY) | ;EP
|
|
| CPT | ;; CPT codes
|
|
| HDR | ;; Visit string
|
|
| GETPROT() | ;EP
|
|
| NARR(DESCT) | ;
|
|
| POV | ;; Purpose of visit
|
|
| RX | ; Prescriptions
|
|
| SAVE(DATA,PCC,X,Y) | ;EP
|
|
| PRV | ;; Provider
|
|
| CKRXVST(VIEN,TM) | ; EP
|
|
| RXV | ; Non-VA Meds
|
|
| VID2IEN(DATA,VID) | ;EP
|
|
| FNDVSTX(CRIT) | ;
|
|
| VST | ;; Patient and encounter date
|
|
| AICD() | ;EP
|
|
| GETOPT() | ;EP
|
|
| ABS(X) | ||
| FIND(FN,CODE,VST,CRT) | ;EP
|
|
| STXIT | ||
| ADDPCC(X) | ;
|
|
| ANCVCK(VARY) | ; EP
|
|
| FNDVIS(DFN,DAT,CAT,LOC,CRE,PRV,PDIV,PRF,TYP,OLOC,OSID) | ;
|
|
| SET(FLN,PC,CV) | ;EP
|
| Name | Field # of Occurrence |
|---|---|
| EN^APCDVDLT | DELVSIT+4 |
| GETVISIT^BSDAPI4 | FNDVSTX+3, MAKEVST+6 |
| $$CONC^BSTSAPI | POV+6 |
| BRDCAST^CIANBEVT | SAVE+9, FNDVSTX+7, MAKEVST+9 |
| $$SET^CIAU | SET+1 |
| $$FIND1^DIC | GETOPT+2, GETPROT+2 |
| UPDATE^DIE | STORE+17, NARR+7, RX+14, RXV+15 |
| $$ROOT^DILFD | FIND+2 |
| $$GET1^DIQ | EVAL+6, STORE+22, STORE+23, STORE+24, FNDVIS+15, FNDVIS+24, MAKEVST+4, MAKEVST+5, CKRXVST+2, CKRXVST+3 , CKRXVST+4 |
| $$CODEN^ICDCODE | POV+12 |
| $$CODEN^ICDEX | POV+11 |
| $$CPT^ICPTCOD | CPT+1 |
| $$VID2IEN^VSIT | VID2IEN+1 |
| $$VERSION^XPDUTL | AICD+1 |
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC |
| ^DIC(19 - [#19] | FIND1^DIC |
| ^SC - [#44] | GET1^DIQ |
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| ^APSPCTRL - [#9009033] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APCCCTRL - [#9001000] | FNDVIS+8 |
| ^AUPNVSIT - [#9000010] | VSTR2VIS+6 |
| ^AUTNPOV - [#9999999.27] | NARR+4 |
| ^AUTNPOV("B" | NARR+4 |
| Name | Line Occurrences |
|---|---|
| $$ABS | FNDVIS+4, FNDVIS+7 |
| $$AICD | POV+11 |
| $$ANCVCK | FNDVSTX+12 |
| $$CKRXVST | FNDVSTX+8, FNDVSTX+9, ANCVCK+6 |
| $$EVAL | FIND+4 |
| $$FIND | STORE+7 |
| $$FNDVIS | VSTR2VIS+4 |
| $$FNDVSTX | FNDVIS+33 |
| $$GETOPT | STORE+24, FNDVIS+11, CKRXVST+4 |
| $$GETPROT | STORE+23, FNDVIS+12, CKRXVST+3 |
| $$MAKEVST | FNDVIS+29, FNDVIS+34 |
| $$NARR | POV+15 |
| $$STORE | RX+7, RXV+8 |
| $$VSTR2VIS | STORE+2 |
| @( | SAVE+6 |
| DELVSIT | STORE+25 |
| LOOK | SAVE+5, RX+2, RXV+2 |
| SET | PRV+2, POV+16, CPT+2, RX+4, RXV+3, RXV+5 |
| STORE | PRV+2, POV+16, CPT+2 |
| STXIT | STORE+3, STORE+7 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | FNDVIS+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADD | SAVE+1~, SAVE+4*, STORE+6, PRV+1* |
| APCDALVR | VSTR2VIS+1~ |
| APCDVDFN | DELVSIT+1~ |
| APCDVDG | DELVSIT+1~ |
| >> APCDVDLT | DELVSIT+3* |
| APCDVFLE | DELVSIT+1~ |
| APCDVI | DELVSIT+2~ |
| APCDVIGR | DELVSIT+1~ |
| APCDVLDT | DELVSIT+1~ |
| APCDVNM | DELVSIT+1~ |
| ARY | LOOK~, LOOK+1!, LOOK+6*, EVAL~ |
| ARY( | LOOK+5* |
| AUPNVSIT | DELVSIT+1~ |
| CAT | FNDVIS~, FNDVIS+9, FNDVIS+26, VSTR2VIS+1~, VSTR2VIS+2*, VSTR2VIS+4 |
| CF | STORE~, STORE+5*, STORE+11 |
| CIAERR | STORE+1~, RX+9~, RXV+11~ |
| CIAERR("DIERR" | STORE+18, RX+15, RXV+16 |
| CIAFLD | STORE+1~, RX+9~, RXV+11~ |
| CIAFLD( | STORE+14*, RX+13*, RXV+14* |
| CIAIEN | STORE+1~, RX+9~, RXV+11~ |
| CIAIEN(1 | STORE+19 |
| CNT | LOOK+2~, LOOK+4*, LOOK+5 |
| CODE | SAVE+1~, SAVE+4*, FIND~, FIND+4, STORE+7, STORE+8, VST+1, VST+2, PRV+1, POV+11* , POV+12*, POV+13, POV+16, CPT+1*, CPT+2 |
| COM | SAVE+1~, SAVE+5, STORE+11 |
| CRE | FNDVIS~, FNDVIS+27, FNDVIS+31, FNDVIS+34 |
| CREATE | VSTR2VIS~, VSTR2VIS+2*, VSTR2VIS+4 |
| CRIT | FNDVSTX~, FNDVSTX+3, MAKEVST~, MAKEVST+6 |
| CRIT("CLINIC | CODE" , MAKEVST+5* |
| CRIT("FORCE A | DD" , MAKEVST+3* |
| CRIT("HOS LOC | " , MAKEVST+4*, MAKEVST+5 |
| CRIT("NEVER A | DD" , MAKEVST+2! |
| CRT | FIND~, FIND+3, FIND+4, STORE~, STORE+7, RX+1~, RX+6*, RX+7, RXV+1~, RXV+7* , RXV+8 |
| CRT( | FIND+3*, EVAL+3, EVAL+4 |
| CV | SET~, SET+1 |
| DA | DELVSIT+2~ |
| DAT | SAVE+1~, STORE+13, VST+2*, FNDVIS~, FNDVIS+3, VSTR2VIS+1~, VSTR2VIS+2*, VSTR2VIS+4 |
| DATA | SAVE~, SAVE+2*, SAVE+3, STORE+3*, STORE+18*, RX+15*, RXV+16*, VID2IEN~, VID2IEN+1* |
| DEL | SAVE+1~, SAVE+4*, STORE+2, STORE+3, STORE+7, STORE+8, STORE+21, RX+8, RX+13, RXV+10 , RXV+14 |
| DESC | POV+1~, POV+7*, POV+10, POV+15 |
| DESCT | NARR~, NARR+2, NARR+3 |
| DFN | SAVE+1~, STORE+2, STORE+9, STORE+26, VST+1*, RXV+11~, FNDVIS~, FNDVIS+2, FNDVSTX+7, MAKEVST+9 , VSTR2VIS~, VSTR2VIS+4, VSTR2VIS+8, ADDPCC+1 |
| DIERR | STORE+16~, STORE+18, RX+15, RXV+16 |
| DIF | FNDVIS+1~ |
| DIK | DELVSIT+2~ |
| DUZ | FNDVIS+10 |
| DUZ(2 | FNDVIS+4, FNDVIS+8 |
| EFLG | FNDVSTX+1~, FNDVSTX+5*, FNDVSTX+6, FNDVSTX+8* |
| EVT | SAVE+1~, SAVE+7*, SAVE+8*, SAVE+9 |
| EVT( | SAVE+8, SAVE+9, STORE+26* |
| FDA | NARR+1~ |
| FDA( | NARR+6* |
| FLD | SAVE+1~, EVAL+1~, EVAL+4*, EVAL+5, EVAL+6, STORE+14, STORE+15! |
| FLD( | SET+1*, STORE+8*, STORE+9*, STORE+10*, STORE+11*, RX+3*, RXV+4* |
| FLD(1201 | STORE+13* |
| FLD(1204 | STORE+12* |
| FLG | VSTR2VIS+1~ |
| FLN | SET~, SET+1 |
| FN | FIND~, FIND+2, EVAL+6, STORE~, STORE+4*, STORE+7, STORE+14, RX+9~, RX+12*, RX+13 , RXV+11~, RXV+13*, RXV+14 |
| FVST | FNDVIS+1~, FNDVIS+33*, FNDVIS+34 |
| GBL | FIND+1~, FIND+2*, FIND+4 |
| IDX | SAVE+1~, SAVE+2*, SAVE+3*, SAVE+4, LOOK+3, LOOK+7* |
| IDX2 | LOOK+2~, LOOK+3*, LOOK+4*, LOOK+5, LOOK+6, LOOK+7 |
| IEN | FIND+1~, FIND+2*, FIND+4*, FIND+5, EVAL+5, EVAL+6, STORE+1~, STORE+6*, STORE+7*, STORE+14 , STORE+19*, STXIT, NARR+1~, NARR+4*, NARR+5, RX+1~, RX+7*, RX+8, RX+13, RXV+1~ , RXV+8*, RXV+9*, RXV+10, RXV+14, FNDVIS+1~, FNDVIS+27, FNDVIS+29*, FNDVSTX+1~, FNDVSTX+5*, FNDVSTX+6* , FNDVSTX+7, FNDVSTX+8, FNDVSTX+9, FNDVSTX+10, VSTR2VIS+1~, VSTR2VIS+2*, VSTR2VIS+4*, VSTR2VIS+5, VSTR2VIS+6, VSTR2VIS+7* , VSTR2VIS+8*, VSTR2VIS+9, VSTR2VIS+10 |
| IEN(1 | NARR+8 |
| IENS | RX+9~, RX+11*, RX+13, RXV+11~, RXV+12*, RXV+14 |
| IN | FNDVIS+1~, FNDVIS+29, FNDVIS+33, FNDVIS+34 |
| IN("ANCILLARY" | FNDVIS+21*, FNDVIS+31! |
| IN("APCDLOC" | FNDVIS+7* |
| IN("APCDOLOC" | FNDVIS+6* |
| IN("APCDOPT" | FNDVIS+11* |
| IN("APCDPROT" | FNDVIS+12* |
| IN("FORCE ADD | " , FNDVIS+28* |
| IN("HOS LOC" | FNDVIS+14*, FNDVIS+24*, FNDVIS+26! |
| IN("NEVER ADD | " , FNDVIS+32* |
| IN("PAT" | FNDVIS+2* |
| IN("PROVIDER" | FNDVIS+17*, FNDVIS+20*, FNDVIS+25* |
| IN("SITE" | FNDVIS+4* |
| IN("SRV CAT" | FNDVIS+9*, MAKEVST+4 |
| IN("TIME RANG | E" , FNDVIS+16*, FNDVIS+19*, FNDVIS+23* |
| IN("USR" | FNDVIS+10* |
| IN("VISIT DAT | E" , FNDVIS+3* |
| IN("VISIT TYP | E" , FNDVIS+8* |
| ITM | EVAL+1~, EVAL+4*, EVAL+5, EVAL+6 |
| LOC | FNDVIS~, FNDVIS+13, FNDVIS+14, FNDVIS+15, MAKEVST+4, VSTR2VIS+1~, VSTR2VIS+2*, VSTR2VIS+4, VSTR2VIS+9 |
| LP | EVAL+1~, EVAL+2*, EVAL+3*, EVAL+4, VSTR2VIS+1~ |
| NAR | POV+1~ |
| NARR | NARR+1~ |
| NVA | RXV+11~ |
| OLOC | FNDVIS~, FNDVIS+4, FNDVIS+7, VSTR2VIS+1~, VSTR2VIS+3*, VSTR2VIS+4 |
| OPT | CKRXVST+1~, CKRXVST+4*, CKRXVST+5 |
| OSID | FNDVIS~, FNDVIS+6, VSTR2VIS+1~, VSTR2VIS+3*, VSTR2VIS+4 |
| OUT | FNDVIS+1~, FNDVSTX+3, FNDVSTX+12, MAKEVST+1~, MAKEVST+6 |
| OUT( | FNDVSTX+6, FNDVSTX+7, FNDVSTX+10!, MAKEVST+9 |
| OUT(0 | FNDVSTX+4, FNDVSTX+11*, FNDVSTX+12, MAKEVST+7, MAKEVST+8 |
| PC | SET~, SET+1* |
| PCC | SAVE~, ADDPCC+1 |
| PCC( | SAVE+3, SAVE+4, LOOK+4, LOOK+5, LOOK+6, ADDPCC+2* |
| PCC("" | ADDPCC+2 |
| PCC(1 | ADDPCC+1* |
| PCC(2 | ADDPCC+1* |
| PDIV | FNDVIS~, FNDVIS+15, FNDVIS+24, MAKEVST+4, VSTR2VIS~, VSTR2VIS+4 |
| PICD | POV+1~, POV+8* |
| PRF | FNDVIS~, FNDVIS+17, FNDVIS+25, FNDVSTX+8, FNDVSTX+9, VSTR2VIS~, VSTR2VIS+4 |
| PRT | CKRXVST+1~, CKRXVST+3*, CKRXVST+5 |
| PRV | SAVE+1~, SAVE+2*, STORE+12, PRV+1*, PRV+2, FNDVIS~, FNDVIS+17, FNDVIS+20, FNDVIS+25, VSTR2VIS~ , VSTR2VIS+4 |
| RES | EVAL+1~, EVAL+2*, EVAL+3, EVAL+5*, EVAL+6*, EVAL+7, ANCVCK+2~, ANCVCK+3*, ANCVCK+5, ANCVCK+6* , ANCVCK+7 |
| RET | FNDVSTX+1~, FNDVSTX+2*, FNDVSTX+4, FNDVSTX+8*, FNDVSTX+12, MAKEVST+1~, MAKEVST+8*, MAKEVST+9, MAKEVST+10, GETOPT+1~ , GETOPT+2*, GETOPT+3, GETPROT+1~, GETPROT+2*, GETPROT+3 |
| RFN | RX+9~, RX+10*, RX+11, RX+12, RXV+11~ |
| RXN | RX+9~, RX+10*, RX+11 |
| SIG | RX+1~, RX+2, RX+3, RXV+1~, RXV+2, RXV+4 |
| SNO | POV+1~, POV+5*, POV+6, POV+9 |
| TM | CKRXVST~, CKRXVST+2*, CKRXVST+5 |
| TRC | NARR+1~, NARR+3*, NARR+4 |
| TXT | POV+1~, POV+14*, POV+15, NARR+1~, NARR+3*, NARR+4, NARR+6 |
| TYP | SAVE+1~, SAVE+4*, SAVE+6, LOOK~, LOOK+4, EVAL+1~, EVAL+4*, EVAL+6, STORE+26, FNDVIS~ , FNDVIS+5, FNDVIS+8, VSTR2VIS+1~, VSTR2VIS+3*, VSTR2VIS+4 |
| U | SAVE+4, LOOK+4, SET+1, FIND+4, STORE+11, STORE+18, HDR+1, VST+1, VST+2, POV+7 , POV+8, POV+9, POV+10, POV+14, POV+15, NARR+4, RX+3, RX+5, RX+10, RX+15 , RXV+4, RXV+6, RXV+12, RXV+16, FNDVIS+8, VSTR2VIS+8, VSTR2VIS+9, DELVSIT+1~ |
| VAL | SAVE+1~, SAVE+4*, SET+1, HDR+1, VST+1, VST+2, POV+9*, POV+10*, POV+14, POV+15* , RX+5, RX+10, RXV+6, RXV+12 |
| VAL1 | POV+1~ |
| VARY | ANCVCK~ |
| VARY( | ANCVCK+5 |
| VID | VID2IEN~, VID2IEN+1 |
| VIEN | CKRXVST~, CKRXVST+2, CKRXVST+3, CKRXVST+4, ANCVCK+2~, ANCVCK+4*, ANCVCK+5*, ANCVCK+6 |
| VMED | RX+1~, RX+5*, RX+6, RXV+1~, RXV+6*, RXV+7 |
| VSIT | VSTR2VIS+1~ |
| VST | SAVE+1~, FIND~, FIND+4, STORE+2*, STORE+3, STORE+7, STORE+10, STORE+21, STORE+22, STORE+23 , STORE+24, STORE+25, DELVSIT~, DELVSIT+3 |
| VSTR | SAVE+1~, STORE+2, HDR+1*, VSTR2VIS~, VSTR2VIS+2, VSTR2VIS+3, VSTR2VIS+6*, VSTR2VIS+7, VSTR2VIS+8, VSTR2VIS+9* , ADDPCC+1 |
| X | SAVE~, POV+1~, POV+6*, POV+7, POV+8, ABS~, ADDPCC~, ADDPCC+2 |
| Y | SAVE~ |
| Name | Field # of Occurrence |
|---|---|
| $T(@TYP | SAVE+6 |