APCHSUTL ; IHS/CMI/LAB - UTILITIES FOR APCHS -- SUMMARY PRODUCTION COMPONENTS
Source file <APCHSUTL.m>
| Package | Total | Call Graph | 
|---|---|---|
| DRG Grouper | 2 | ($$ICDD,$$ICDDX,$$ICDOP)^ICDEX $$CPT^ICPTCOD | 
| VA Fileman | 2 | EN^DIFGG ^DIR | 
| IHS Patient | 1 | ($$VSTD,$$VSTP)^AUPNVUTL | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CONT | ||
| PRTTXT | ;PEP - PUBLISHED ENTRY POINT ; GENERALIZED TEXT PRINTER | |
| GEN1 | ; | |
| PRTICD | ;ENTRY POINT | |
| PRTICDE | ;ENTRY POINT | |
| GETSITE | ;ENTRY POINT | |
| PRTTXT1 | ; | |
| PRTTXT2 | ||
| GETNARR | ;ENTRY POINT | |
| DSPLST | ; COMMON CODE FOR BUILD HLTH SUM & HLTH SUM MNX LISTS | |
| LC | ;ENTRY POINT - FOR APCHSLST HLTH SUM COMPONENTS | |
| GETICDDX | ;ENTRY POINT | |
| LM | ;ENTRY POINT - FOR APCHSLST MEASUREMENT PANEL TYPES | |
| FLOW | ; | |
| LI | ;ENTRY POINT - FOR APCHSLST HLTH SUM FLOWSHEET ITEMS | |
| LS | ;ENTRY POINT - FOR APCHSLST HLTH SUM TYPES | |
| GENFG | ;generate filegrams for export | |
| LF | ;ENTRY POINT - FOR APCHSLST HLTH SUM FLOWSHEETS | |
| GETCPT | ;ENTRY POINT | |
| GETSITEV | ;ENTRY POINT | |
| GETFRAG | ||
| WANTPN(T) | ;EP | |
| QUIT | ||
| TYPE | ; | |
| GETICDOP | ;ENTRY POINT | |
| MEASPAN | ; | 
| 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 | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^APCHSCTL - [#9001015] | WANTPN+1, WANTPN+2, GETNARR+1 | 
| ^APCHSCTL("B" | TYPE+3 | 
| ^APCHSFLC("B" | FLOW+4 | 
| ^APCHSMPN("B" | MEASPAN+4 | 
| ^AUPNVSIT - [#9000010] | GETSITEV+1, GETSITE+4, GETSITE+5 | 
| ^AUTNPOV - [#9999999.27] | GETNARR+1 | 
| ^AUTTLOC - [#9999999.06] | GETSITE+2 | 
| ^DIC(4 - [#4] | GETSITE+4 | 
| ^DIPT("B" | MEASPAN+2, FLOW+2, TYPE+1 | 
| ^ICD0 - [#80.1] | GETICDOP+3 | 
| ^ICD9 - [#80] | GETICDDX+4 | 
| Name | Line Occurrences | 
|---|---|
| DSPLST | LC+1, LS+1, LM+1, LI+1, LF+1 | 
| GEN1 | MEASPAN+7, FLOW+7, TYPE+6 | 
| GETFRAG | PRTTXT2 | 
| PRTTXT | PRTICD+5, PRTICDE+4 | 
| PRTTXT1 | PRTTXT+4 | 
| PRTTXT2 | PRTTXT+4 | 
| QUIT | CONT | 
| TYPE | FLOW+1 | 
| Name | Field # of Occurrence | 
|---|---|
| ^(0 | GETSITE+4 | 
| ^(2 | GETNARR+1 | 
| ^(21 | GETSITE+4, GETSITE+5 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| APCHC | MEASPAN+2*, MEASPAN+6*, FLOW+2*, FLOW+6*, TYPE+1*, TYPE+5*, TYPE+8! | 
| >> APCHCSVD | GETICDDX+2, GETICDDX+5, GETICDOP+2, GETICDOP+4 | 
| APCHSC | PRTTXT+6!, GETFRAG+1*, GETFRAG+2*, GETFRAG+3 | 
| >> APCHSCKP | PRTTXT2 | 
| APCHSCNT | DSPLST+5*, CONT*, QUIT! | 
| >> APCHSCVD | GETICDDX+4, GETICDOP+3 | 
| APCHSDLT | PRTTXT+3*, PRTTXT+6!, PRTTXT2* | 
| APCHSDSC | GETICDDX+1~, GETICDDX+5*, GETICDOP+1~, GETICDOP+4* | 
| APCHSDSC(1 | GETICDDX+6, GETICDOP+5 | 
| APCHSF | PRTTXT+6!, PRTTXT2, GETFRAG*, GETFRAG+3* | 
| >> APCHSICD | GETICDDX+2, GETICDDX+4, GETICDDX+6*, GETICDDX+7*, GETICDDX+8*, GETICDOP+2, GETICDOP+3, GETICDOP+5*, GETICDOP+6*, GETICDOP+7* , GETCPT+1, GETCPT+2*, GETCPT+3*, GETCPT+4*, PRTICD+1*, PRTICD+2, PRTICDE+1* | 
| >> APCHSICF | GETICDDX+6, GETICDDX+7, GETICDDX+8, GETICDOP+5, GETICDOP+6, GETICDOP+7, GETCPT+2, GETCPT+3, GETCPT+4, PRTICD+1 , PRTICDE+1 | 
| >> APCHSICL | PRTTXT+3, PRTTXT2* | 
| APCHSILN | PRTTXT+3*, PRTTXT+6!, PRTTXT2*, GETFRAG, GETFRAG+1, GETFRAG+2 | 
| >> APCHSITE | GETSITEV+1*, GETSITE+1*, GETSITE+2, GETSITE+4, GETSITE+5, GETSITE+7 | 
| APCHSLST | LC+1*, LS+1*, LM+1*, LI+1*, LF+1*, DSPLST+2, DSPLST+3, DSPLST+4, CONT, QUIT! | 
| >> APCHSNAB | GETSITE+7* | 
| >> APCHSNFL | GETSITE+4* | 
| >> APCHSNRQ | PRTICD+1*, PRTTXT1+1*, PRTTXT1+2, GETNARR+1*, GETNARR+2* | 
| >> APCHSNSH | GETSITE+5* | 
| APCHSNTE | PRTICD+3*, PRTICD+4*, PRTICDE+2*, PRTICDE+3*, PRTTXT+2*, PRTTXT+5!, PRTTXT1+2* | 
| >> APCHSP | GETSITEV+1*, GETSITE+2*, GETSITE+4, GETSITE+5, GETSITE+7 | 
| >> APCHSQ | PRTTXT+4* | 
| >> APCHSQIT | PRTTXT2 | 
| APCHSTXT | PRTICD+2*, PRTTXT+4, PRTTXT+6!, PRTTXT1+1*, PRTTXT1+2*, GETFRAG*, GETFRAG+1, GETFRAG+3* | 
| >> APCHSTYP | GETNARR+1 | 
| APCHSVDF | GETSITEV+1, GETSITE+3*, GETSITE+4, GETSITE+5, GETSITE+6! | 
| >> APCHSVSC | GETSITEV+1* | 
| APCHT | MEASPAN+2*, FLOW+2*, TYPE+1*, TYPE+8!, GEN1+2, GEN1+5 | 
| >> APCHX | MEASPAN+2*, MEASPAN+4, MEASPAN+5, FLOW+2*, FLOW+4, FLOW+5, TYPE+1*, TYPE+3, TYPE+4, GEN1+5 | 
| APCHXY | GETICDDX+1~, GETICDDX+2*, GETICDDX+3, GETICDDX+4*, GETICDDX+5, GETICDDX+6, GETICDDX+7, GETICDDX+8, GETICDOP+1~, GETICDOP+2* , GETICDOP+3*, GETICDOP+4, GETICDOP+5, GETICDOP+6, GETICDOP+7 | 
| >> DIFG("FE" | MEASPAN+4*, MEASPAN+5, FLOW+4*, FLOW+5, TYPE+3*, TYPE+4 | 
| >> DIFG("FGR" | GEN1+2* | 
| >> DIFG("FUNC" | GEN1+1* | 
| >> DIFGER | GEN1+5 | 
| >> DIFGT | MEASPAN+2*, MEASPAN+3, FLOW+2*, FLOW+3, TYPE+1*, TYPE+2 | 
| >> DILC | GEN1+3* | 
| DIR | DSPLST+1!, CONT+1!, QUIT! | 
| DIR(0 | CONT*, CONT+1* | 
| IOF | DSPLST+3, CONT | 
| IOM | PRTTXT+3 | 
| IOSL | CONT | 
| T | WANTPN~, WANTPN+1, WANTPN+2 | 
| U | GETICDDX+3, GETICDDX+4, GETICDDX+5, GETICDDX+6, GETICDDX+7, GETICDDX+8, GETICDOP+3, GETICDOP+4, GETICDOP+5, GETICDOP+6 , GETICDOP+7, GETCPT+2, GETCPT+3, GETCPT+4, WANTPN+2, GETNARR+1, GETSITEV+1, GETSITE+4, GETSITE+5, GETSITE+7 , DSPLST+2, DSPLST+3, DSPLST+4 | 
| X | QUIT! | 
| Y | GETCPT+1*, GETCPT+2, GETCPT+3, GETCPT+4, CONT, QUIT! |