©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
DGGECSB ;ALB/DMK/CMM - MAS PRINT A CODE SHEET ; 07/20/89
Source file <DGGECSB.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^DIC EN1^DIP EN^DIQ1 |
| Uncategorized | 1 | GETMAP^GECSXMAP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HEAD | ;
|
|
| END | ||
| READ | ;
|
|
| H1 | ;
|
|
| FIELD | ||
| KEY | ;PRINT KEYPUNCH CODE SHEET
|
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(2100 | READ+3, HEAD+4 |
| ^DIE("B" | FIELD+5 |
| ^GECS(2100 | PRINT+6 |
| ^GECS(2101.2 | FIELD+1 |
| ^UTILITY("DIQ1" | END+2!, FIELD+19!, READ+3, READ+5!, KEY+1!, H1+1!, HEAD+2! |
| Name | Line Occurrences |
|---|---|
| END | PRINT+3 |
| FIELD | PRINT+8 |
| H1 | KEY+2 |
| KEY | PRINT+6 |
| PRINT+3, PRINT+10, KEY+6 | |
| READ | HEAD+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADAT | READ+1~ |
| BY | PRINT+4*, END!, FIELD+8~, KEY+3* |
| CSDA | PRINT+4*, END!, FIELD+9, READ+3, H1+2, HEAD+2 |
| DA | END!, FIELD+8~, FIELD+9*, H1+1~, H1+2* |
| DHD | PRINT+9*, END!, FIELD+8~, KEY+4* |
| DIC | PRINT~, PRINT+1*, PRINT+7!, PRINT+9*, FIELD+8~, FIELD+9*, KEY+3*, H1+1~, H1+2* |
| DIC("A" | PRINT+1* |
| DIC("S" | PRINT+2* |
| DIC(0 | PRINT+1* |
| DIOEND | PRINT+9*, END+1! |
| DIQ | END! |
| DIQ(0 | FIELD+18*, H1+2* |
| DR | END!, FIELD+8~, FIELD+9*, FIELD+15*, FIELD+18*, H1+1~, H1+2*, H1+4 |
| ENT | FIELD+4~, FIELD+5*, FIELD+6, READ+1~, READ+2*, READ+3 |
| FLDS | PRINT+4*, END!, FIELD+8~, KEY+3* |
| FR | PRINT+4*, PRINT+9, END!, FIELD+8~ |
| GECS | END! |
| GECS("TTF" | PRINT+5*, FIELD |
| GECSEDIT | END+1!, FIELD+1*, FIELD+2*, FIELD+5 |
| GECSMAP | END!, FIELD+6, FIELD+10 |
| GECSMAP( | FIELD+11, FIELD+12 |
| GECSTT | END!, FIELD*, FIELD+1 |
| HDR | END!, FIELD+18*, READ+2, H1+4*, HEAD+2* |
| HEAD | READ+1~ |
| HY | PRINT+4*, END!, HEAD+3 |
| L | PRINT+9*, END!, FIELD+8~, KEY+3* |
| LOOP | FIELD+8~, FIELD+10*, FIELD+11, FIELD+12, READ+1~, READ+2*, READ+4 |
| MD | HEAD+2*, HEAD+4, HEAD+6! |
| N1 | FIELD+12*! |
| NEXT | FIELD+8~, FIELD+11*, FIELD+12*, FIELD+13, FIELD+14, FIELD+16*, FIELD+17 |
| PP | FIELD+8~, FIELD+14*, FIELD+15 |
| PRT | READ+1~ |
| HEAD+1*, HEAD+4, HEAD+6! | |
| SEMI | FIELD+8~, FIELD+13*, FIELD+14, FIELD+16, FIELD+17* |
| SLASH | FIELD+8~, FIELD+13*, FIELD+14, FIELD+17* |
| TO | PRINT+4*, END!, FIELD+8~ |
| X | PRINT+3, PRINT+7! |
| Y | PRINT+3, PRINT+4, PRINT+6, PRINT+7!, FIELD+8~ |
| Y(0 | PRINT+4, PRINT+5 |
| >> ZTSAVE("CSDA" | PRINT+9*, KEY+5* |
| >> ZTSAVE("DHD" | KEY+5* |
| >> ZTSAVE("DIOEND" | KEY+5* |
| >> ZTSAVE("HDR" | PRINT+9* |
| >> ZTSAVE("^UTILITY(""DIQ1"",$J," | PRINT+9*, KEY+5* |