APCDCAF ; IHS/CMI/LAB - MENTAL HLTH ROUTINE 16-AUG-1994 ;
Source file <APCDCAF.m>
Package | Total | Call Graph |
---|---|---|
Patient Care Component | 6 | PAUSE^APCDALV1 EN^APCDCAF2 $$FINDPEND^APCDCAF6 $$DATE^APCDCAFA GETVCDR^APCDCAFS EP^APCDKDE |
IHS VA Utilities | 3 | ($$VAL,$$VALI)^XBDIQ1 (ARRAY,VIEWR)^XBLM EN^XBVK |
Registration | 3 | EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 |
VA Fileman | 3 | ^DIC ($$GET1,EN)^DIQ ^DIR |
Kernel | 2 | $$FMTE^XLFDT DISP^XQORM1 |
Patient Care Component Reports | 2 | $$DEMO^APCLUTL ($$CLINIC,$$PRIMPROV)^APCLV |
IHS Patient | 1 | ($$HRN,$$MCD,$$MCR,$$PI,KILL)^AUPNPAT |
Text Integration Utility | 1 | BROWS1^TIURA2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
NOTEX | ;
|
|
NSORT | ;
|
|
HDR | ;EP -- header code
|
|
RSORT | ;
|
|
CAS | ||
HS | ;
|
|
BH | ;EP
|
|
BACK | ;EP go back
|
|
ONEDATEX | ;
|
|
BH1 | ;
|
|
ERRORCHK(V) | ;EP
|
|
EOP | ;EP
|
|
ISORT | ;
|
|
RECDISP | ;
|
|
MNOTE | ;
|
|
REC | ;
|
|
ASORT | ;
|
|
NOTE1 | ;
|
|
HELP | ;EP -- help code
|
|
PSORT | ;
|
|
TSORT | ;
|
|
RESORT | ;
|
|
INIT | ;EP -- init variables/list array
|
|
LBLK(V,L) | ;left blank fill
|
|
OSORT | ;
|
|
CASHXX | ;
|
|
RESORTX | ;
|
|
DSORT | ;
|
|
DATE(D) | ;
|
|
EN | ; EP -- main entry point
|
|
ONEDATE | ;
|
|
DCAH | ;
|
|
LASTCDR(V,F) | ;EP - get last chart deficiency reason
|
|
GATHERP | ; gather up visits for 1 patient
|
|
BHSOAP | ;look for SOAP note
|
|
SSORT | ;
|
|
HS1 | ;
|
|
LSORT | ;
|
|
RBLK(V,L) | ;left blank fill
|
|
HSORT | ;
|
|
HSX | ;
|
|
SORT(V,S) | ;
|
|
CSORT | ;
|
|
BHM | ;
|
|
CASHX | ;EP
|
|
NOTEDISP | ;
|
|
MCP(V) | ;
|
|
GATHER | ;
|
|
EXPND | ; -- expand code
|
|
SCW(C) | ;EP
|
|
EXIT | ; -- exit code
|
|
BHX | ;
|
Name | Field # of Occurrence |
---|---|
PAUSE^APCDALV1 | BH+2 |
EN^APCDCAF2 | ONEDATE+13 |
$$FINDPEND^APCDCAF6 | ERRORCHK+11 |
$$DATE^APCDCAFA | DCAH+12 |
GETVCDR^APCDCAFS | CAS+2 |
EP^APCDKDE | ONEDATE+9 |
$$DEMO^APCLUTL | GATHER+11 |
$$CLINIC^APCLV | REC+12 |
$$PRIMPROV^APCLV | GATHER+18, GATHERP+12, REC+14, PSORT+1, DCAH+4 |
$$HRN^AUPNPAT | REC+6, HSORT+1, TSORT+6 |
$$MCD^AUPNPAT | MCP+8, ISORT+6 |
$$MCR^AUPNPAT | MCP+7, ISORT+5 |
$$PI^AUPNPAT | MCP+9, ISORT+7 |
KILL^AUPNPAT | ONEDATEX+2, NOTEX+2, HSX+3, BHX+2 |
^DIC | HS1+4 |
$$GET1^DIQ | DCAH+7, DCAH+12 |
EN^DIQ | DCAH+13 |
^DIR | ONEDATE+4, NOTEDISP+4, MNOTE+9, CASHX+4, RESORT+5, HS+5, EOP+4, BH+4, BHM+9, BHSOAP+3 |
BROWS1^TIURA2 | NOTEDISP+2, NOTE1+2, BH1+2 |
EN^VALM | EN+5 |
TERM^VALM0 | EN+3, BACK+1 |
CLEAR^VALM1 | EN+4, EN+6 |
FULL^VALM1 | NOTEDISP+8, CASHX+1, RESORT+1, HS+1, BH+8 |
$$VAL^XBDIQ1 | REC+10, ERRORCHK+6, ERRORCHK+7, LASTCDR+10, SSORT+3, LSORT+3, CSORT+3, OSORT+3, ASORT+3, NSORT+1 , MNOTE+4, DCAH+3, DCAH+4, BHM+4, BHSOAP+6 |
$$VALI^XBDIQ1 | GATHER+34 |
ARRAY^XBLM | BHSOAP+6 |
VIEWR^XBLM | CASHX+8, HS1+8 |
EN^XBVK | HSX+2 |
$$FMTE^XLFDT | HDR+1, DATE+4 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUPNVCA - [#9000010.45] | GET1^DIQ |
^AUPNCANT - [#9000095] | Classic Fileman Calls |
^APCHSCTL - [#9001015] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AMHREC - [#9002011] | BHSOAP+1 |
^AMHREC("AVISIT" | BH+9, BH+14 |
^APCCCTRL - [#9001000] | HS1+1 |
^APCDSITE - [#9001001.2] | SCW+5, GATHER+17 |
^APCHSCTL - [#9001015] | HS1+1, HS1+2 |
^AUPNPAT - [#9000001] | GATHER+9 |
^AUPNVCA - [#9000010.45] | LASTCDR+2, LASTCDR+5, LASTCDR+6, LASTCDR+10, DCAH+11 |
^AUPNVCA("AD" | LASTCDR+4, DCAH+6, DCAH+10 |
^AUPNVNOT - [#9000010.28] | NOTE1+1, BH1+1 |
^AUPNVNOT("AD" | NOTEDISP+9, NOTEDISP+10, NOTEDISP+11, MNOTE+3, BH+15, BH+16, BH+17, BHM+3 |
^AUPNVPOV("AD" | ERRORCHK+4, ERRORCHK+5 |
^AUPNVPRV - [#9000010.06] | GATHER+34, ERRORCHK+9 |
^AUPNVPRV("AD" | GATHER+17, GATHER+34, ERRORCHK+8 |
^AUPNVSIT - [#9000010] | GATHER+6, CAS, GATHERP+4, GATHERP+16, RECDISP+4, ONEDATE+10, ONEDATE+12, REC+4, REC+7, REC+11 , REC+15, ERRORCHK+3, ERRORCHK+4, MCP+3, MCP+5, MCP+7, MCP+8, MCP+9, DSORT+2, DSORT+3 , SSORT+2, LSORT+2, CSORT+2, OSORT+2, ASORT+2, HSORT+1, TSORT+2, TSORT+4, ISORT+2, ISORT+4 , ISORT+5, ISORT+6, ISORT+7, DCAH+12, HS+9 |
^AUPNVSIT("AA" | GATHERP+2, GATHERP+3 |
^AUPNVSIT("B" | GATHER+4, GATHER+5 |
^AUTTLOC - [#9999999.06] | REC+8 |
^DISV( | HS1+2 |
^DPT - [#2] | GATHER+10, REC+5, HS1+7 |
^TMP("APCDCAF" | EXIT+1!, GATHER+1!, RECDISP+5*, RECDISP+6*, ONEDATE+7, NOTEDISP+7, CASHX+7, HS+8, BH+7 |
^TMP($J | EXIT+1!, GATHER+1!, CAS+7*, GATHERP+18*, RECDISP+1, RECDISP+2 |
^XUSEC("AMHZ CODING REVIEW" | BH+2 |
Name | Line Occurrences |
---|---|
$$DATE | REC+4 |
$$ERRORCHK | REC+1 |
$$LASTCDR | RSORT+1 |
$$LBLK | REC+6 |
$$MCP | REC+13 |
$$SCW | GATHER+13, GATHERP+6 |
$$SORT | CAS+7, GATHERP+18 |
@( | SORT+3 |
BACK | ONEDATEX+3, NOTEX+3, CASHXX+2, RESORTX+1, HSX+4, BHX+3 |
BH1 | BH+17 |
BHSOAP | BH+15, BH+17, BHM+10, BHM+11 |
BHX | BH+2, BH+5, BH+6, BH+9 |
CAS | GATHER+33 |
CASHXX | CASHX+5, CASHX+6 |
EOP | ONEDATE+5, ONEDATE+6, NOTEDISP+2, NOTEDISP+5, NOTEDISP+6, NOTEDISP+9, CASHX+5, CASHX+6, HS+6, HS+7 , HS1+5, BH+5, BH+6, BH+13 |
GATHER | INIT+2 |
GATHERP | GATHER+2 |
HDR | BACK+4 |
HS1 | HS+2 |
HSX | HS+6, HS+7, HS1+5 |
INIT | BACK+3 |
NOTE1 | NOTEDISP+11 |
NOTEX | NOTEDISP+2, NOTEDISP+5, NOTEDISP+6, NOTEDISP+9, NOTEDISP+11, MNOTE+10, MNOTE+11 |
ONEDATEX | ONEDATE+5, ONEDATE+6 |
REC | RECDISP+4 |
RECDISP | INIT+3 |
RESORTX | RESORT+6 |
Name | Field # of Occurrence |
---|---|
^("^APCHSCTL(" | HS1+2 |
^(0 | HS1+1, HS1+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | RBLK+1~, RBLK+2*, LBLK+1~, LBLK+2* |
A | LASTCDR+3~ |
A( | LASTCDR+7*, LASTCDR+9 |
A(0 | LASTCDR+8 |
>> APCDBD | HDR+1, GATHER+3, GATHERP+1 |
APCDCAF | ONEDATEX+1! |
APCDCAFD | ONEDATE+10*, ONEDATEX+1! |
APCDCAFO | ONEDATE+11*, ONEDATEX+1! |
>> APCDCAFP | GATHER+2, GATHERP+2, GATHERP+3, HS+2 |
APCDCAFV | ONEDATEX+1! |
>> APCDCDRS | CAS+3, CAS+4, CAS+6 |
>> APCDCDRS( | CAS+5 |
>> APCDCLNS | GATHER+25, GATHER+26 |
>> APCDCLNS( | GATHER+26 |
>> APCDCLNT | GATHER+24 |
>> APCDDEMO | GATHER+11 |
APCDDFN | ONEDATE+12*, ONEDATEX+1! |
>> APCDED | HDR+1, GATHER+4, GATHERP+1 |
>> APCDERR | REC+1*, REC+3, REC+17 |
APCDHDR | HS1+7*, HS1+8, HSX+1! |
>> APCDHLS | GATHER+28, GATHER+29 |
>> APCDHLS( | GATHER+29 |
>> APCDLOCS | GATHER+22 |
>> APCDLOCS( | GATHER+22 |
APCDN | MNOTE+2!, BHM+2! |
APCDN( | MNOTE+5*, MNOTE+12, BHM+5*, BHM+12 |
>> APCDODAT | GATHER+3*, GATHER+4*, GATHER+5, GATHERP+1*, GATHERP+2*, GATHERP+3 |
APCDPAT | HS+2*, HS+9*, HSX+1! |
APCDPLPT | HSX+1! |
>> APCDPRVS | GATHER+30, GATHER+32 |
>> APCDPRVS( | GATHER+32, GATHER+35 |
>> APCDPRVT | GATHER+17, GATHER+31, GATHER+32, GATHER+33 |
APCDRCNT | INIT+4, EXIT+1!, GATHER+4*, GATHERP+2*, RECDISP+3*, RECDISP+5, RECDISP+6, ONEDATE+3, REC+3, NOTEDISP+3 , CASHX+3, HS+4, BH+3 |
>> APCDSORT | CAS+7, GATHERP+18, RESORT+7* |
>> APCDSTOP | GATHERP+1*, GATHERP+2 |
APCDSV | RECDISP+1*, RECDISP+2, RECDISP+7! |
APCDTIU | NOTE1+1*, NOTE1+2, NOTEX+1!, BH1+1*, BH1+2, BHX+1! |
APCDV | RECDISP+2*, RECDISP+4, RECDISP+6, RECDISP+7!, REC+1, REC+4, REC+7, REC+10, REC+11, REC+12 , REC+13, REC+14, REC+15 |
>> APCDV0 | GATHER+6*, GATHER+7, GATHER+8, GATHER+9, GATHER+10, GATHER+11, GATHER+12, GATHER+13, GATHER+14, GATHER+15 , GATHER+16, GATHER+20, GATHER+23, GATHER+27, GATHERP+4*, GATHERP+5, GATHERP+6, GATHERP+7, GATHERP+8, GATHERP+9 , GATHERP+14 |
>> APCDVBH | BH+14*, BHSOAP+1, BHSOAP+6 |
>> APCDVCAS | CAS*, CAS+1, GATHERP+16*, GATHERP+17 |
APCDVCDR | CAS+2!, CAS+3 |
APCDVCDR( | CAS+5 |
>> APCDVCLN | GATHER+23*, GATHER+24, GATHER+25, GATHER+26 |
>> APCDVHL | GATHER+27*, GATHER+28, GATHER+29 |
>> APCDVIEN | GATHER+4*, GATHER+5*, GATHER+6, GATHER+17, GATHER+18, GATHER+34, CAS, CAS+2, CAS+7, GATHERP+2* , GATHERP+3*, GATHERP+4, GATHERP+12, GATHERP+16, GATHERP+18 |
>> APCDVLOC | GATHER+20*, GATHER+21, GATHER+22, GATHERP+14*, GATHERP+15 |
APCDVNOT | NOTEDISP+11*, MNOTE+12*, NOTE1+1, NOTEX+1!, BH+17*, BHM+12*, BH1+1, BHX+1! |
>> APCDVPP | GATHER+18*, GATHER+30, GATHER+31, GATHER+32, GATHERP+12* |
APCDVSIT | ONEDATE+7*, ONEDATE+10, ONEDATE+12, ONEDATEX+1!, NOTEDISP+7*, NOTEDISP+9, NOTEDISP+10, NOTEDISP+11, MNOTE+3, NOTEX+1! , CASHX+7*, CASHXX+1!, DCAH+3, DCAH+4, DCAH+6, DCAH+10, DCAH+12, DCAH+13, HS+8*, HS+9 , HSX+1!, BH+7*, BH+9, BH+14, BH+15, BH+16, BH+17, BHM+3, BHX+1! |
APCDX | RECDISP+4*, RECDISP+5, RECDISP+7!, REC+2*, REC+3*, REC+4*, REC+5*, REC+6*, REC+9*, REC+10* , REC+11*, REC+12*, REC+13*, REC+14*, REC+16*, REC+17*, DCAH+6*, DCAH+7, DCAH+10*, DCAH+11 , DCAH+12 |
>> APCHSPAT | HS+2*, HS+9*, HS1+6*, HS1+7 |
>> APCHSTYP | HS1+6* |
AUPNDAYS | HSX+1! |
AUPNVSIT | HSX+1! |
C | SCW~, SCW+1, SCW+2, SCW+3, SCW+4, SCW+5, ERRORCHK+1~, ERRORCHK+8*, ERRORCHK+9*, ERRORCHK+10 , NOTEDISP+10*, NOTEDISP+11, MNOTE+3*, MNOTE+4, MNOTE+5, MNOTE+8, BH+16*, BH+17, BHM+3*, BHM+4 , BHM+5, BHM+8 |
D | DATE~, DATE+2, DATE+3, DATE+4, LASTCDR+3~, LASTCDR+6*, LASTCDR+7, MCP+4~, MCP+5*, MCP+6 , MCP+7, MCP+8, MCP+9, TSORT+3~, TSORT+4*, TSORT+5, TSORT+6, ISORT+3~, ISORT+4*, ISORT+5 , ISORT+6, ISORT+7 |
D0 | HS1+4! |
D1 | HS1+4! |
DA | DCAH+13*, RESORT+5!, HS1+4!, BHSOAP+3! |
DD | HS1+4! |
DFN | RECDISP+4*, REC+5, REC+6, HS+2*, HS+9*, HS1+6, HSX+1! |
DFOUT | EOP+3! |
DIC | DCAH+13*, HS1+4!* |
DIC("B" | HS1+4* |
DIC(0 | HS1+4* |
DIR | ONEDATE+2!, ONEDATE+4!, ONEDATEX+1!, BACK+5!, NOTEDISP+1!, NOTEDISP+4!, MNOTE+7!, MNOTE+9!, NOTEX+1!, CASHX+2! , CASHX+4!, CASHXX+1!, RESORT+5!, HS+3!, HS+5!, EOP+2~, BH+1!, BH+4!, BHM+7!, BHM+9! , BHSOAP+3!, BHX+1! |
DIR("A" | ONEDATE+3*, NOTEDISP+3*, MNOTE+8*, CASHX+3*, RESORT+5*, HS+4*, EOP+4*, BH+3*, BHM+8*, BHSOAP+3* |
DIR("B" | RESORT+5*, BHSOAP+3* |
DIR(0 | ONEDATE+3*, NOTEDISP+3*, MNOTE+8*, CASHX+3*, RESORT+3*, RESORT+4*, HS+4*, EOP+4*, BH+3*, BHM+8* , BHSOAP+3* |
DIRUT | ONEDATE+4*, ONEDATE+6, ONEDATEX+1!, NOTEDISP+4*, NOTEDISP+6, MNOTE+9*, MNOTE+11, NOTEX+1!, CASHX+4*, CASHX+6 , CASHXX+1!, RESORT+6, HS+5*, HS+7, EOP+3!, BH+4*, BH+6, BHM+9*, BHM+11, BHSOAP+4 , BHX+1! |
DLOUT | EOP+3! |
DQ | HS1+4! |
DR | HS1+4! |
DTOUT | EOP+3! |
DUOUT | ONEDATE+4, ONEDATEX+1!, NOTEDISP+4, MNOTE+9, NOTEX+1!, CASHX+4, CASHXX+1!, HS+5, EOP+3!, BH+4 , BHM+9, BHX+1! |
DUZ | HS1+2, BH+2 |
DUZ(2 | SCW+5, GATHER+17, REC+6, HSORT+1, TSORT+6, HS1+1 |
E | ERRORCHK+1~, ERRORCHK+2*, ERRORCHK+4*, ERRORCHK+6*, ERRORCHK+7*, ERRORCHK+10*, ERRORCHK+11*, ERRORCHK+12 |
F | LASTCDR~, LASTCDR+1*, LASTCDR+10 |
>> G | GATHER+34*, CAS+4*, CAS+5*, CAS+6 |
>> H | GATHER+34*, GATHER+35*, GATHER+36 |
I | RBLK+1~, RBLK+2*, LBLK+1~, LBLK+2*, BACK+6! |
IOST | EOP+1 |
L | REC+7*, REC+8*, REC+9, REC+15*, REC+16, RBLK~, RBLK+2, LBLK~, LBLK+2, LASTCDR+3~ , LASTCDR+8*, LASTCDR+9 |
R | MCP+1~*, MCP+7*, MCP+8*, MCP+9*, MCP+10, SORT+1~, SORT+2*, SORT+4*, SORT+5, DSORT+3* , SSORT+3*, LSORT+3*, CSORT+3*, OSORT+3*, PSORT+1*, ASORT+3*, ASORT+4*, RSORT+1*, NSORT+1*, HSORT+1* , TSORT+6*, TSORT+7*, ISORT+5*, ISORT+6*, ISORT+7* |
S | GATHER+34*, GATHER+35, SORT~, SORT+3 |
U | GATHER+8, GATHER+9, GATHER+10, GATHER+11, GATHER+12, GATHER+13, GATHER+14, GATHER+15, GATHER+16, GATHER+17 , GATHER+20, GATHER+23, GATHER+27, GATHER+34, CAS, GATHERP+6, GATHERP+7, GATHERP+8, GATHERP+9, GATHERP+14 , GATHERP+16, RECDISP+4, ONEDATE+10, ONEDATE+12, REC+4, REC+5, REC+7, REC+8, REC+11, REC+15 , ERRORCHK+3, ERRORCHK+4, ERRORCHK+9, LASTCDR+6, LASTCDR+10, MCP+5, MCP+7, MCP+8, MCP+9, DSORT+3 , HSORT+1, TSORT+4, ISORT+4, ISORT+5, ISORT+6, ISORT+7, NOTE1+1, DCAH+11, DCAH+12, HS+9 , HS1+1, HS1+2, HS1+7, BH1+1 |
V | ERRORCHK~, ERRORCHK+3, ERRORCHK+4, ERRORCHK+5, ERRORCHK+8, ERRORCHK+11, RBLK~, RBLK+2*, RBLK+3, LBLK~ , LBLK+2*, LBLK+3, LASTCDR~, LASTCDR+2, LASTCDR+4, MCP~, MCP+2, MCP+3, MCP+5, MCP+7 , MCP+8, MCP+9, SORT~, DSORT+1, DSORT+2, DSORT+3, SSORT+1, SSORT+2, SSORT+3, LSORT+1 , LSORT+2, LSORT+3, CSORT+1, CSORT+2, CSORT+3, OSORT+1, OSORT+2, OSORT+3, PSORT+1, ASORT+1 , ASORT+2, ASORT+3, RSORT+1, NSORT+1, HSORT+1, TSORT+1, TSORT+2, TSORT+4, ISORT+1, ISORT+2 , ISORT+4, ISORT+5, ISORT+6, ISORT+7 |
VALCNT | EN+2~ |
>> VALMBCK | BACK+2* |
>> VALMCC | EN+1* |
>> VALMCNT | INIT+4* |
>> VALMHDR(1 | HDR+1* |
>> VALMHDR(2 | HDR+4* |
>> VALMHDR(3 | HDR+3* |
>> VALMSG | INIT+1* |
X | HDR+2*, HDR+3, HELP+1*, GATHER+34*, CAS+5*, DATE+1~, DATE+2*, DATE+3*, DATE+5, ERRORCHK+1~ , ERRORCHK+5*, ERRORCHK+6, ERRORCHK+7, ERRORCHK+8*, ERRORCHK+9, LASTCDR+3~, LASTCDR+4*, LASTCDR+5, LASTCDR+6, LASTCDR+7 , LASTCDR+9*, LASTCDR+10, BACK+6!, NOTEDISP+10*, MNOTE+3*, MNOTE+4, MNOTE+5, NOTEX+1!, HS1+1*, HS1+2* , HS1+3*, HS1+4, HSX+1!, BH+16*, BHM+3*, BHM+4, BHM+5, BHX+1! |
Y | ONEDATE+5, ONEDATE+7, ONEDATEX+1!, DATE+1~, DATE+4*, DATE+5, BACK+6!, NOTEDISP+5, NOTEDISP+7, MNOTE+10 , MNOTE+12, NOTEX+1!, CASHX+5, CASHX+7, CASHXX+1!, RESORT+7, HS+2*, HS+6, HS+8, HS+9* , HS1+2*, HS1+5, HS1+6, HSX+1!, BH+5, BH+7, BHM+10, BHM+12, BHSOAP+5, BHX+1! |
Z | RBLK+2*, LBLK+2*, BACK+6! |
Name | Field # of Occurrence |
---|---|
$T(BROWS1^TIURA2 | NOTEDISP+2 |