©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
IBDFU2B ;ALB/CJM - ENCOUNTER FORM - BUILD FORM(copying blocks - continued from IBDFU2) ; 08-JAN-1993
Source file <IBDFU2B.m>
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 2 | IBDFU2 IBDFU2A |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETPI(PI,FROMFILE,TOFILE) | ;copies the package interface=PI from file=FROMFILE to file=TOFILE if it doesn't already exist
|
|
| GETADE(ADE,FROMFILE,TOFILE) | ;copys AICS Data Element=ADE from file=FROMFILE to file=TOFILE if it does not already exist
|
|
| CPYSLCTN(SLCTN,GRP,NEWGRP,LIST,NEWLIST,FROMFILE,TOFILE) | ;
|
|
| LOOKUP(NAME,RTN,ENTRYPT,TOFILE,TYPE) | ;return 1 if the package interface already exists in TOFILE, 0 otherwise
|
|
| GETQLFR(QLFR,FROMFILE,TOFILE) | ;copys qualifier=QLFR from file=FROMFILE to file=TOFILE if it does not already exist
|
|
| GETMA(MA,FROMFILE,TOFILE) | ;copys marking area=ma from file=FROMFILE to file=TOFILE if it does not already exist
|
|
| CPYQLFRS(FROMFILE,PI,TOFILE,NEWPI) | ;copy allowable qualifiers from the package interface=PI in NEWPI to the package interface=NEWPI in TOFILE
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBD( | GETQLFR+8, GETQLFR+12, GETQLFR+18* |
| ^IBE( | CPYSLCTN+6, CPYSLCTN+14*, CPYSLCTN+24*, CPYSLCTN+30*, CPYSLCTN+32, CPYSLCTN+33*, CPYSLCTN+37, CPYSLCTN+38*, CPYSLCTN+39, CPYSLCTN+40* , GETMA+8, GETMA+11, GETMA+16*, GETPI+8, GETPI+25*, GETPI+27*, GETPI+28*, GETPI+29, GETPI+35*, GETPI+36 , GETPI+37*, CPYQLFRS+3!, CPYQLFRS+4*, CPYQLFRS+5*, LOOKUP+3, GETADE+8, GETADE+11, GETADE+16*, GETADE+19* |
| Name | Line Occurrences |
|---|---|
| $$GETADE | GETPI+32, GETPI+34, CPYQLFRS+6 |
| $$GETPI | GETPI+26 |
| $$GETQLFR | CPYQLFRS+7 |
| $$LOOKUP | GETPI+10 |
| CPYQLFRS | GETPI+39 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | CPYSLCTN+40 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADE | GETADE~, GETADE+4, GETADE+5, GETADE+8, GETADE+19 |
| CNT | CPYSLCTN+4~, CPYSLCTN+22*, CPYSLCTN+24*, CPYSLCTN+30 |
| DA | CPYSLCTN+7!*, CPYSLCTN+11!, CPYSLCTN+44!*, CPYSLCTN+46!, GETMA+13!, GETMA+17!*, GETMA+18!, GETPI+14!, GETPI+41!*, GETPI+42! , GETQLFR+15!, GETQLFR+19!*, GETQLFR+20!, GETADE+13!, GETADE+20!*, GETADE+21! |
| DD | CPYSLCTN+10!, GETMA+12!, GETPI+12!, GETQLFR+14!, GETADE+12! |
| DIC | CPYSLCTN+10!*, CPYSLCTN+11!, GETMA+12!*, GETMA+13!, GETPI+12!*, GETPI+14!, GETQLFR+14!*, GETQLFR+15!, GETADE+12!*, GETADE+13! |
| DIC(0 | CPYSLCTN+10*, GETMA+12*, GETPI+12*, GETQLFR+14*, GETADE+12* |
| DIE | CPYSLCTN+11!, GETMA+13!, GETPI+14!, GETQLFR+15!, GETADE+13! |
| DIK | CPYSLCTN+7*!, CPYSLCTN+44!*, CPYSLCTN+46!, GETMA+17!*, GETMA+18!, GETPI+41!*, GETPI+42!, GETQLFR+19!*, GETQLFR+20!, GETADE+20!* , GETADE+21! |
| DINUM | CPYSLCTN+10!, GETMA+12!, GETPI+12!, GETQLFR+14!, GETADE+12! |
| DO | CPYSLCTN+10!, GETMA+12!, GETPI+12!, GETQLFR+14!, GETADE+12! |
| ENTRYPT | GETPI+6~, GETPI+9*, GETPI+10, GETPI+22, GETPI+23, LOOKUP~, LOOKUP+4 |
| FROMFILE | CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+2, CPYSLCTN+6, CPYSLCTN+7, CPYSLCTN+24, CPYSLCTN+32, CPYSLCTN+37, CPYSLCTN+38, CPYSLCTN+39 , CPYSLCTN+40, GETMA~, GETMA+2, GETMA+5, GETMA+8, GETPI~, GETPI+2, GETPI+5, GETPI+8, GETPI+26 , GETPI+28, GETPI+29, GETPI+32, GETPI+34, GETPI+36, GETPI+37, GETPI+39, CPYQLFRS~, CPYQLFRS+4, CPYQLFRS+5 , CPYQLFRS+6, CPYQLFRS+7, GETQLFR~, GETQLFR+2, GETQLFR+5, GETQLFR+8, GETADE~, GETADE+2, GETADE+5, GETADE+8 , GETADE+19 |
| GRP | CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+7 |
| I | CPYSLCTN+4~, CPYSLCTN+39*, CPYSLCTN+40 |
| >> IBDFCPYF | CPYSLCTN+24 |
| IBDFI | CPYSLCTN+25~, CPYSLCTN+26*, CPYSLCTN+27, CPYSLCTN+28 |
| >> IBDFNEW( | CPYSLCTN+27, CPYSLCTN+28 |
| >> IBDFOLD( | CPYSLCTN+27, CPYSLCTN+28 |
| K | CPYSLCTN+25~, CPYSLCTN+26*, CPYSLCTN+28* |
| >> LAST | CPYSLCTN+22*, CPYSLCTN+24*, CPYSLCTN+30 |
| LIST | CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+7 |
| LOOKNODE | LOOKUP+1~, LOOKUP+3*, LOOKUP+4 |
| MA | GETMA~, GETMA+4, GETMA+5, GETMA+8 |
| NAME | CPYSLCTN+4~, CPYSLCTN+8*, CPYSLCTN+9, CPYSLCTN+10, GETMA+6~, GETMA+9*, GETMA+10, GETMA+11, GETMA+12, GETPI+9* , GETPI+10, LOOKUP~, LOOKUP+2, LOOKUP+3, LOOKUP+4, GETQLFR+6~, GETQLFR+9*, GETQLFR+10, GETQLFR+12, GETQLFR+14 , GETADE+6~, GETADE+9*, GETADE+10, GETADE+11, GETADE+12 |
| NEWADE | GETADE+6~, GETADE+7*, GETADE+11*, GETADE+14*, GETADE+15, GETADE+16, GETADE+19, GETADE+20, GETADE+22 |
| NEWGRP | CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+8 |
| NEWLIST | CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+8 |
| NEWMA | GETMA+6~, GETMA+7*, GETMA+11*, GETMA+14*, GETMA+15, GETMA+16, GETMA+17, GETMA+19 |
| NEWPI | GETPI+6~, GETPI+7*, GETPI+10*, GETPI+11, GETPI+15*, GETPI+16, GETPI+25, GETPI+27, GETPI+28, GETPI+35 , GETPI+37, GETPI+39, GETPI+41, GETPI+43, CPYQLFRS~, CPYQLFRS+3, CPYQLFRS+4, CPYQLFRS+5 |
| NEWQLFR | GETQLFR+6~, GETQLFR+7*, GETQLFR+12*, GETQLFR+13, GETQLFR+16*, GETQLFR+17, GETQLFR+18, GETQLFR+19, GETQLFR+21 |
| NEWSLCTN | CPYSLCTN+4~, CPYSLCTN+5*, CPYSLCTN+12*, CPYSLCTN+13, CPYSLCTN+14, CPYSLCTN+24, CPYSLCTN+30, CPYSLCTN+33, CPYSLCTN+38, CPYSLCTN+40 , CPYSLCTN+44 |
| NODE | CPYSLCTN+4~, CPYSLCTN+6*, CPYSLCTN+7, CPYSLCTN+8*, CPYSLCTN+14, CPYSLCTN+24*, CPYSLCTN+26, CPYSLCTN+28*, CPYSLCTN+32*, CPYSLCTN+33 , GETMA+6~, GETMA+8*, GETMA+9, GETMA+16, GETPI+6~, GETPI+8*, GETPI+9, GETPI+12, GETPI+20*, GETPI+22* , GETPI+23*, GETPI+25, GETPI+26*, GETPI+27, GETPI+28*, GETPI+29*, GETPI+31, GETPI+32*, GETPI+33, GETPI+34* , GETPI+35, GETPI+36*, GETPI+37*, CPYQLFRS+2~, CPYQLFRS+4*, CPYQLFRS+5*, GETQLFR+6~, GETQLFR+8*, GETQLFR+9, GETQLFR+18 , GETADE+6~, GETADE+8*, GETADE+9, GETADE+16, GETADE+19* |
| PI | GETPI~, GETPI+4, GETPI+5, GETPI+8, GETPI+28, GETPI+29, GETPI+36, GETPI+37, GETPI+39, CPYQLFRS~ , CPYQLFRS+4, CPYQLFRS+5, LOOKUP+1~, LOOKUP+3*, LOOKUP+5 |
| QLFR | GETQLFR~, GETQLFR+4, GETQLFR+5, GETQLFR+8 |
| QUIT | LOOKUP+1~, LOOKUP+3*, LOOKUP+4* |
| RTN | GETPI+6~, GETPI+9*, GETPI+10, GETPI+20, GETPI+21, LOOKUP~, LOOKUP+4 |
| SC | CPYSLCTN+4~, CPYSLCTN+22*, CPYSLCTN+24* |
| SLCTN | CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+6, CPYSLCTN+7, CPYSLCTN+24, CPYSLCTN+32, CPYSLCTN+37, CPYSLCTN+38, CPYSLCTN+39, CPYSLCTN+40 |
| SUB | CPYQLFRS+2~, CPYQLFRS+4*, CPYQLFRS+5, GETADE+6~, GETADE+19* |
| SUB1 | GETPI+6~, GETPI+28*, GETPI+36*, GETPI+37 |
| SUB2 | GETPI+6~, GETPI+37* |
| TOFILE | CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+3, CPYSLCTN+10, CPYSLCTN+14, CPYSLCTN+24, CPYSLCTN+30, CPYSLCTN+33, CPYSLCTN+38, CPYSLCTN+40 , CPYSLCTN+44, GETMA~, GETMA+3, GETMA+5, GETMA+11, GETMA+12, GETMA+16, GETMA+17, GETPI~, GETPI+3 , GETPI+5, GETPI+10, GETPI+12, GETPI+25, GETPI+26, GETPI+27, GETPI+28, GETPI+32, GETPI+34, GETPI+35 , GETPI+37, GETPI+39, GETPI+41, CPYQLFRS~, CPYQLFRS+3, CPYQLFRS+4, CPYQLFRS+5, CPYQLFRS+6, CPYQLFRS+7, LOOKUP~ , LOOKUP+3, GETQLFR~, GETQLFR+3, GETQLFR+5, GETQLFR+12, GETQLFR+14, GETQLFR+18, GETQLFR+19, GETADE~, GETADE+3 , GETADE+5, GETADE+11, GETADE+12, GETADE+16, GETADE+19, GETADE+20 |
| TYPE | GETPI+6~, GETPI+9*, GETPI+10, GETPI+19, LOOKUP~, LOOKUP+4 |
| TYPEDATA | GETPI+30~, GETPI+31*, GETPI+32, GETPI+33*, GETPI+34 |
| VARPTR | CPYQLFRS+2~, CPYQLFRS+5*, CPYQLFRS+6*, CPYQLFRS+7* |
| >> X | CPYSLCTN+10*, GETMA+12*, GETPI+12*, GETPI+13, GETQLFR+14*, GETADE+12* |
| >> Y | CPYSLCTN+12, GETMA+14, GETPI+15, GETQLFR+16, GETADE+14 |
| Name | Field # of Occurrence |
|---|---|
| $T(@ENTRYPT^@RTN | GETPI+22 |
| $T(^@RTN | GETPI+23 |