ACHSRP2 ; IHS/ITSC/PMF - PRINT CHS FORMS - INIT NAMED VARS, CALL FORM ROUTINE ; [ 01/21/2005 3:50 PM ]
Source file <ACHSRP2.m>
| Package | Total | Call Graph | 
|---|---|---|
| Contract Health Management Information System | 6 | $$PARM^ACHS SB1^ACHSRP1 ^ACHSRP3 ^ACHSRP3D ^ACHSRPU PRT^ACHSUDF | 
| VA Fileman | 2 | C^%DTC $$GET1^DIQ | 
| IHS VA Utilities | 1 | $$EXTSET^XBFUNC | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| UNDEF(X) | ; | |
| END | ; | |
| EXT1 | ; | |
| I | ;;Emergent/Acutely Urg | |
| PROC | ; Set Referral Procedure Narrative into print vars for regular Form. | |
| PROC1 | ; Set Referral Procedure Narrative into print vars for Universal Form. | |
| EXT | ; | |
| IV | ;;Chr Tert/Exten Svc | |
| II | ;;Preventive Sevices | |
| INIT | ;EP - Initialize local vars to existing document data. | |
| DIAG1 | ; Set Referral Diagnosis Narrative into print vars for Universal Form. | |
| DIAG | ; Set Referral Diagnosis Narrative into print vars for regular Form. | |
| KILLNULS | ; | |
| III | ;;Prim/Sec Services | |
| REF | ; Set Referral Physician and Medical Priority into print vars. | |
| REFCOD | ; | 
| FileNo | Call Tags | 
|---|---|
| ^VA(200 - [#200] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^ACHS(7 - [#9002067] | ACHSRP2+27, ACHSRP2+30, ACHSRP2+33*, ACHSRP2+34*, ACHSRP2+35*, ACHSRP2+36*, ACHSRP2+37 | 
| ^ACHSF - [#9002080] | ACHSRP2+10, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+77, REF+6, PROC+2, PROC+3 , DIAG+1, DIAG+2, PROC1+1, DIAG1+1 | 
| ^ACHSF("PQ" | ACHSRP2+38! | 
| ^AUTTLOC - [#9999999.06] | ACHSRP2+18, INIT+50 | 
| ^AUTTVNDR - [#9999999.11] | INIT+37, INIT+41, INIT+42 | 
| ^DD("DD" | INIT+29, INIT+31 | 
| ^DD(9002080.01 | REF+4 | 
| ^DIC(16 - [#16] | REF+15 | 
| ^DIC(6 - [#6] | REF+14 | 
| ^TMP("ACHSRR" | ACHSRP2+26! | 
| ^VA(200 - [#200] | REF+11 | 
| Name | Line Occurrences | 
|---|---|
| $$UNDEF | INIT+17, INIT+18, INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, INIT+25, INIT+26 , INIT+28, INIT+29, INIT+30, INIT+31, INIT+34, INIT+35, INIT+38, INIT+39, INIT+49, INIT+80 , INIT+81, INIT+82, INIT+83, INIT+87, INIT+93, INIT+94, INIT+96, INIT+98, INIT+100, REF+7 , REF+9, REF+14, REF+15, REF+16 | 
| DIAG | PROC+2 | 
| DIAG1 | PROC1+1 | 
| END | ACHSRP2+10, ACHSRP2+26 | 
| EXT | DIAG+1 | 
| EXT1 | DIAG1+1 | 
| INIT | ACHSRP2+15 | 
| KILLNULS | INIT+3 | 
| PROC1 | PROC+1 | 
| REF | ACHSRP2+15 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| A | END+1! | 
| A(7 | INIT+101* | 
| >> ACHS | KILLNULS+1* | 
| >> ACHS200 | REF+4*, REF+11, REF+13 | 
| >> ACHS7DA | ACHSRP2+27, ACHSRP2+30, ACHSRP2+33, ACHSRP2+34, ACHSRP2+35, ACHSRP2+36, ACHSRP2+37 | 
| >> ACHSADTE | INIT+31* | 
| >> ACHSAGRP | INIT+35*, INIT+37 | 
| >> ACHSASIG | INIT+30* | 
| >> ACHSBLAN | INIT+24*, INIT+77 | 
| ACHSBLKF | INIT+74!, INIT+77*, REF+1 | 
| >> ACHSBLT | INIT+77* | 
| >> ACHSCAN | INIT+17* | 
| >> ACHSCONP | INIT+13* | 
| >> ACHSCOPT | INIT+22* | 
| >> ACHSCPY | ACHSRP2+18 | 
| >> ACHSDCR | INIT+26* | 
| >> ACHSDES | INIT+100*, INIT+101 | 
| >> ACHSDEST | INIT+25* | 
| >> ACHSDIEN | ACHSRP2+10, ACHSRP2+26, ACHSRP2+33, ACHSRP2+36, ACHSRP2+38, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10 , INIT+77, REF+6, PROC+2, PROC+3, DIAG+1, DIAG+2, PROC1+1, DIAG1+1 | 
| >> ACHSDOC0 | INIT+6*, INIT+13, INIT+17, INIT+18, INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24 , INIT+25, INIT+26, INIT+28, INIT+29, INIT+30, INIT+31, INIT+34, INIT+35, INIT+46, INIT+49 , INIT+80, INIT+81 | 
| >> ACHSDOC1 | INIT+7*, INIT+15, INIT+91, INIT+96, INIT+100 | 
| >> ACHSDOC2 | INIT+8*, INIT+98 | 
| >> ACHSDOC3 | INIT+9*, INIT+72, INIT+87, INIT+88, INIT+94, REF+7, REF+9 | 
| >> ACHSDOS | INIT+53* | 
| ACHSDS | END+3!, INIT+42*, INIT+43* | 
| ACHSDX | REF+2*, DIAG+2*, DIAG+3, DIAG+4, DIAG+5, EXT+1!, DIAG1+1*, DIAG1+2, DIAG1+3, DIAG1+4 , EXT1+1! | 
| >> ACHSEDOS | INIT+85*, INIT+94*, INIT+95* | 
| >> ACHSEDTE | INIT+29* | 
| >> ACHSESDA | INIT+96* | 
| >> ACHSESDO | INIT+82* | 
| >> ACHSESIG | INIT+28* | 
| >> ACHSFC | INIT+46 | 
| >> ACHSFDT | INIT+85*, INIT+87*, INIT+91, INIT+95 | 
| >> ACHSHON | INIT+98* | 
| ACHSIPRM | END+1! | 
| >> ACHSISIG | INIT+80* | 
| >> ACHSL | ACHSRP2+18* | 
| >> ACHSLCA | INIT+55* | 
| >> ACHSLOC0 | INIT+50* | 
| ACHSMPN | END+3!, INIT+41* | 
| ACHSMPP | END+3!, INIT+15*, INIT+41, INIT+42, INIT+43 | 
| >> ACHSMRTI | INIT+39* | 
| >> ACHSMRTO | INIT+38* | 
| ACHSNOTF | INIT+4!, INIT+5*, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+37, INIT+50 | 
| >> ACHSOBJC | INIT+19* | 
| >> ACHSODT | INIT+23*, INIT+63 | 
| >> ACHSORDN | ACHSRP2+33, ACHSRP2+34, INIT+46* | 
| >> ACHSPATF | INIT+49*, INIT+50 | 
| >> ACHSPR18 | INIT+36*, INIT+37*, INIT+38, INIT+39 | 
| >> ACHSPROV | INIT+34*, INIT+37, INIT+41, INIT+42 | 
| ACHSPX | REF+2*, PROC+3*, PROC+5, PROC+6, PROC+7, EXT+1!, PROC1+1*, PROC1+2, PROC1+3, PROC1+4 , EXT1+1! | 
| >> ACHSREFP | REF+14*, REF+15 | 
| >> ACHSREFT | INIT+72* | 
| >> ACHSRPNT | ACHSRP2+26 | 
| >> ACHSSCC | INIT+18* | 
| >> ACHSSF | INIT+58*, INIT+61* | 
| >> ACHSSIG | INIT+81* | 
| >> ACHSTDT | INIT+85*, INIT+88*, INIT+91*, INIT+93* | 
| >> ACHSTIEN | ACHSRP2+10, ACHSRP2+26, ACHSRP2+33, ACHSRP2+36, ACHSRP2+38, INIT+10 | 
| >> ACHSTRA0 | INIT+10*, INIT+53, INIT+54, INIT+55, INIT+58, INIT+61, INIT+66, INIT+72, INIT+82, INIT+83 | 
| >> ACHSTYP | ACHSRP2+15, INIT+21*, INIT+86, INIT+91 | 
| >> ACHSTYPE | INIT+54*, INIT+64 | 
| >> ACHSTYPV | ACHSRP2+22, ACHSRP2+26, ACHSRP2+38 | 
| >> ACHSX | KILLNULS+1* | 
| >> ACHSY | KILLNULS+1* | 
| B | END+1! | 
| C | END+1! | 
| D | END+1! | 
| >> DFN | INIT+83* | 
| DUZ(2 | ACHSRP2+10, ACHSRP2+18, ACHSRP2+26, ACHSRP2+33, ACHSRP2+36, ACHSRP2+38, INIT+6, INIT+7, INIT+8, INIT+9 , INIT+10, INIT+77, REF+6, PROC+2, PROC+3, DIAG+1, DIAG+2, PROC1+1, DIAG1+1 | 
| E | END+1! | 
| E(11 | INIT+65* | 
| E(7 | INIT+63*, INIT+65, INIT+67*, INIT+68* | 
| F | END+1! | 
| I | END+1! | 
| >> M | ACHSRP2+32*, ACHSRP2+35 | 
| N | ACHSRP2+31*, ACHSRP2+33, ACHSRP2+34, ACHSRP2+35, ACHSRP2+36, END+1!, REF+2*, PROC+5*, PROC+6*, PROC+7* , DIAG+3*, DIAG+4*, DIAG+5*, EXT+1!, PROC1+2*, PROC1+3*, PROC1+4*, DIAG1+2*, DIAG1+3*, DIAG1+4* , EXT1+1! | 
| R | END+1! | 
| R("D" | DIAG+3*, DIAG+4*, DIAG+5*, DIAG1+2*, DIAG1+3*, DIAG1+4* | 
| R("P" | PROC+5*, PROC+6*, PROC+7*, PROC1+2*, PROC1+3*, PROC1+4* | 
| R(1 | REF+7*, REF+11*, REF+14, REF+15* | 
| R(2 | REF+9*, REF+16* | 
| >> S | INIT+20*, INIT+46 | 
| U | ACHSRP2+18, ACHSRP2+31, ACHSRP2+32, ACHSRP2+33, ACHSRP2+35, INIT+5, INIT+13, INIT+15, INIT+17, INIT+18 , INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, INIT+25, INIT+26, INIT+28, INIT+29 , INIT+30, INIT+31, INIT+34, INIT+35, INIT+38, INIT+39, INIT+41, INIT+42, INIT+46, INIT+49 , INIT+53, INIT+54, INIT+55, INIT+58, INIT+61, INIT+66, INIT+72, INIT+80, INIT+81, INIT+82 , INIT+83, INIT+87, INIT+88, INIT+91, INIT+94, INIT+96, INIT+98, INIT+100, REF+7, REF+9 , REF+11, REF+14, REF+15 | 
| X | ACHSRP2+30*, ACHSRP2+31, ACHSRP2+32, ACHSRP2+35, INIT+66*, INIT+67, INIT+68, INIT+91~, REF+2*, PROC+7* , DIAG+5*, EXT+1!, PROC1+4*, DIAG1+4*, EXT1+1!, UNDEF~, UNDEF+1, UNDEF+2 | 
| X1 | INIT+91~* | 
| X2 | INIT+91~* | 
| >> Y | INIT+29*, INIT+31* | 
| Name | Field # of Occurrence | 
|---|---|
| $T(@R(1) | REF+16 |