©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
DGPTFM21 ;ALB/DWS - MASTER PROFESSIONAL SERVICE ENTER/EDIT(CONT.) ;5/24/05 1:04pm
Source file <DGPTFM21.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | ($$DATA2PTF,ICDINFO)^DGAPI FMDIE^DGPTFM2 |
| VA Fileman | 1 | FILE^DICN |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| XREF | ;create xref for ^TMP global containing DGICD9 info to have access via DGN IEN in local array XREF
|
|
| SDR | ;SET DR ARRAY CPT MODIFIERS 1 AND 2
|
|
| CHKDGNS(D0,DGNPC) | ||
| GETINFO | ;GET PROCEDURE CODE INFORMATION
|
|
| SCI(IEN) | ||
| SDR2(DGN) |
| FileNo | Call Tags |
|---|---|
| ^DGCPT(46 - [#46] | Classic Fileman Calls |
| ^DGICD9(46.1 - [#46.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCPT(46 - [#46] | GETINFO+12, CHKDGNS+2, CHKDGNS+3, CHKDGNS+4, CHKDGNS+5, CHKDGNS+6, CHKDGNS+7, CHKDGNS+8, CHKDGNS+9 |
| ^TMP("PTF" | GETINFO+19!, GETINFO+24*, XREF+4 |
| Name | Line Occurrences |
|---|---|
| $$CHKDGNS | GETINFO+11 |
| SCI | GETINFO+18 |
| SDR | GETINFO+5 |
| SDR2 | GETINFO+10 |
| XREF | GETINFO+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | XREF+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D | SCI+6* |
| D0 | CHKDGNS~, CHKDGNS+2, CHKDGNS+3, CHKDGNS+4, CHKDGNS+5, CHKDGNS+6, CHKDGNS+7, CHKDGNS+8, CHKDGNS+9 |
| >> DA | GETINFO+11, GETINFO+12, GETINFO+18*, GETINFO+26*, SCI+6* |
| >> DFN | GETINFO+3, GETINFO+25 |
| >> DGDIAG | GETINFO+2*, GETINFO+8* |
| DGN | SDR2~, SDR2+1 |
| DGNIEN | GETINFO+1~, GETINFO+12*, GETINFO+13, GETINFO+14, GETINFO+16, GETINFO+18, GETINFO+24 |
| DGNPC | CHKDGNS~, CHKDGNS+2, CHKDGNS+3, CHKDGNS+4, CHKDGNS+5, CHKDGNS+6, CHKDGNS+7, CHKDGNS+8, CHKDGNS+9 |
| >> DGPRD | GETINFO+25 |
| >> DIC | GETINFO+14* |
| >> DIC(0 | GETINFO+14* |
| >> DIE | GETINFO+4*, GETINFO+10*, GETINFO+20* |
| DIR | GETINFO+27! |
| >> DLAYGO | GETINFO+14* |
| DO | GETINFO+14! |
| >> DR | GETINFO+9*, GETINFO+12*, GETINFO+20*, GETINFO+22*, SDR+1*, SDR+2*, SDR2+1*, SCI+5*, SCI+6*, SCI+7* |
| >> DTOUT | GETINFO+11 |
| >> DUOUT | GETINFO+6*, GETINFO+9, GETINFO+10*, GETINFO+15, GETINFO+22* |
| >> ERRFLG | GETINFO+2*, GETINFO+7, GETINFO+15*, GETINFO+16, GETINFO+17 |
| EXITFLAG | GETINFO+1~ |
| >> EXITFLG | GETINFO+2*, GETINFO+9, GETINFO+11*, GETINFO+17* |
| I | SCI+1~, SCI+2*, SCI+3, SCI+5, SCI+6, SCI+7, SCI+8! |
| IEN | XREF+1~, XREF+4*, SCI~, SCI+4, SCI+6 |
| INFO | XREF+1~, XREF+4* |
| >> MORE | CHKDGNS+1*, CHKDGNS+2*, CHKDGNS+3*, CHKDGNS+4*, CHKDGNS+5*, CHKDGNS+6*, CHKDGNS+7*, CHKDGNS+8*, CHKDGNS+9*, CHKDGNS+10 |
| NODE | XREF+1~, XREF+4*, SCI+1~ |
| NOKILL | GETINFO+1~, GETINFO+2*, GETINFO+9* |
| >> PIECE | GETINFO+9*, GETINFO+10, GETINFO+11, GETINFO+12 |
| >> PTF | GETINFO+3, GETINFO+25 |
| REC | GETINFO+18*, GETINFO+27! |
| >> SAVDA | GETINFO+12*, GETINFO+26 |
| SCINUM | SCI+1~, SCI+3*, SCI+4, SCI+6 |
| >> SDCLY | SCI |
| >> SDCLY( | SCI+4, SCI+6* |
| >> SDCLY(1 | SCI+6 |
| >> SDCLY(2 | SCI+6 |
| SEQ | XREF+1~, XREF+3*, XREF+4* |
| U | GETINFO+12, XREF+4, CHKDGNS+2, CHKDGNS+3, CHKDGNS+4, CHKDGNS+5, CHKDGNS+6, CHKDGNS+7, CHKDGNS+8, CHKDGNS+9 |
| >> UPDTD | GETINFO+18*, GETINFO+22*, GETINFO+23 |
| >> X | GETINFO+14*, GETINFO+25* |
| XREF | XREF+2! |
| XREF( | GETINFO+13, GETINFO+16*, GETINFO+18, XREF+4*, SCI+6 |
| >> Y | GETINFO+6, GETINFO+10, GETINFO+11, GETINFO+15, GETINFO+16, GETINFO+22 |