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 |