©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
AIBCVT0 ;IHS/DDPS/DFM-IBM STAT RECORDS CONTROL PARAMETERS [ 01/12/89 1:06 PM ]
Source file <AIBCVT0.m>
| Package | Total | Call Graph |
|---|---|---|
| IBM DDPS Record Consolidation | 3 | ^AIBCVT00 WRITE^AIBCVT3 ERRMSG^AIBCVT6 |
| Package | Total | Caller Graph |
|---|---|---|
| IBM DDPS Record Consolidation | 1 | AIBCVT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RETURN | ;RETURN TO CALLING ROUTINE
|
|
| CONTROL | ;READ CONTROL GLOBAL TO DETERMINE SYSTEM AND FIELD CHARACTERISTICS
|
|
| EJCLOOP | ;WRITE NEXT ENDING JCL CARD
|
|
| GETNAME | ;GET OUTPUT FILE NAME
|
|
| EJCL | ;WRITE ENDING JCL FOR RJE BYSYNC JOB
|
|
| BJCL | ;WRITE BEGINNING JCL FOR RJE BYSYNC JOB
|
|
| CTLFOUND | ;CONTROL GLOBAL FOUND FOR RECORDS SYSTEM
|
|
| CTLOOPN | ;GET CONTROL FOR ALL NODES IN RECORD
|
|
| CTLOOPB | ;GET CONTROL INFORMATION FOR RJE JOB BYSYNC TELECOMMUNICATIONS CARD
|
|
| CTLNDONE | ;CONTROL FOR ALL NODES LOADED
|
|
| CTLOOPF | ;GET CONTROL FOR ALL FIELDS IN NODE
|
|
| SETRJE | ;SETUP TO GET RJE DATA
|
|
| CK2ND | ;CHECK IF TEMPORARY FILE FOR 2ND RECORD FORMAT IS NEEDED
|
|
| RESOLVE4 | ;AREA NAME
|
|
| RESOLVE5 | ;PARKLAWN REMOTE NUMBER
|
|
| RESOLVE6 | ;NIH REMOTE NUMBER
|
|
| CTLFDONE | ;CONTROL FOR ALL FIELDS IN NODE LOADED
|
|
| RESOLVE1 | ;RESOLVE AREA CODES
|
|
| RESOLVE2 | ;DDPS REMOTE NUMBER
|
|
| RESOLVE3 | ;ACCOUNTING POINT
|
|
| BJCLOOP | ;WRITE NEXT BEGINNING JCL CARD
|
|
| NEWFILE | ;CREATE A NEW OUTPUT FILE
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AIBCVTC - [#9002140] | CTLFOUND+4, CK2ND+1, CK2ND+3, GETNAME+1, GETNAME+4, CTLOOPN+1, CTLOOPN+3, CTLOOPN+4, CTLOOPF+1, CTLOOPF+4 , CTLOOPF+5, CTLOOPB+1, CTLOOPB+4, CTLOOPB+5, BJCL+1 |
| ^AIBCVTC("C" | CONTROL+1 |
| ^AIBCVTJ - [#9002141] | BJCLOOP+1, BJCLOOP+2, EJCLOOP+1, EJCLOOP+2 |
| Name | Line Occurrences |
|---|---|
| BJCLOOP | RESOLVE6+3 |
| CK2ND | CTLFOUND+4, NEWFILE+2 |
| CTLFDONE | CTLOOPF+2 |
| CTLFOUND | CONTROL+2 |
| CTLNDONE | CTLOOPN+1 |
| CTLOOPB | CTLOOPB+6 |
| CTLOOPF | CTLOOPF+5 |
| CTLOOPN | GETNAME+3, CTLFDONE+2 |
| EJCLOOP | EJCLOOP+3 |
| GETNAME | CK2ND+2 |
| NEWFILE | CTLFOUND+3 |
| RESOLVE1 | RESOLVE1+1 |
| RESOLVE2 | RESOLVE2+1 |
| RESOLVE3 | RESOLVE3+1 |
| RESOLVE4 | RESOLVE4+1 |
| RESOLVE5 | RESOLVE5+1 |
| RESOLVE6 | RESOLVE6+1 |
| RETURN | CONTROL+4, CTLNDONE+3, CTLNDONE+4, CTLOOPB+2, CTLOOPB+3, BJCLOOP+1, EJCLOOP+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AIB2ND | CTLFOUND+3, CK2ND+1*, CK2ND+2, CK2ND+3 |
| >> AIBA | CONTROL+3*, CTLNDONE+4, CTLOOPB+2* |
| AIBB | CONTROL+1! |
| AIBB( | CTLOOPB+5* |
| >> AIBB1 | CTLOOPB+4*, CTLOOPB+5 |
| >> AIBB2 | SETRJE+1*, CTLOOPB+2, CTLOOPB+4*, CTLOOPB+5 |
| >> AIBB3 | SETRJE+1*, CTLOOPB+1*, CTLOOPB+2, CTLOOPB+3, CTLOOPB+4 |
| AIBC | CONTROL+1! |
| AIBC( | CTLOOPN+4*, CTLOOPF+5*, CTLFDONE+1*, CTLNDONE+1 |
| AIBC(0 | CTLNDONE+3* |
| >> AIBCF | CTLFOUND+4, GETNAME+4* |
| >> AIBCF1 | CTLOOPF+4*, CTLOOPF+5 |
| >> AIBCF2 | CTLOOPN+2*, CTLOOPF+3*, CTLOOPF+5, CTLFDONE+1, CTLNDONE+1 |
| >> AIBCF3 | CTLOOPN+2*, CTLOOPF+1*, CTLOOPF+2, CTLOOPF+4 |
| >> AIBCL | CTLNDONE+1*, CTLNDONE+2 |
| >> AIBCN1 | CTLFOUND+1*, CTLOOPN+3*, CTLOOPN+4, CTLOOPF+1, CTLOOPF+4, CTLOOPF+5 |
| >> AIBCN2 | CTLFOUND+1*, CTLOOPN+2*, CTLOOPN+4, CTLFDONE+1, CTLNDONE+1, CTLNDONE+3 |
| >> AIBCN3 | GETNAME+2*, CTLOOPN+1*, CTLOOPN+3 |
| >> AIBCNM | GETNAME+1* |
| >> AIBCS | CONTROL+1*, CONTROL+2, CTLFOUND+4, CK2ND+1, GETNAME+1, GETNAME+4, CTLOOPN+1, CTLOOPN+3, CTLOOPN+4, CTLOOPF+1 , CTLOOPF+4, CTLOOPF+5, CTLOOPB+1, CTLOOPB+4, CTLOOPB+5, BJCL+1 |
| >> AIBCTJ | RESOLVE6+3*, EJCLOOP+3* |
| >> AIBFFN | NEWFILE+1* |
| >> AIBFILE | CTLFOUND+4, GETNAME+3, CTLNDONE+3 |
| >> AIBGBLP | CONTROL+1, CONTROL+3, CTLFOUND+4, GETNAME+3, CTLOOPB+2 |
| >> AIBJ | CTLNDONE+3*, BJCL+1*, BJCLOOP+1*, BJCLOOP+2, EJCL+1*, EJCLOOP+1*, EJCLOOP+2 |
| >> AIBJC | BJCL+1*, BJCLOOP+1, BJCLOOP+2, EJCLOOP+1, EJCLOOP+2 |
| >> AIBJSAC | RESOLVE1+1 |
| >> AIBJSAN | RESOLVE4+1 |
| >> AIBJSAP | RESOLVE3+1 |
| >> AIBJSRD | RESOLVE2+1 |
| >> AIBJSRN | RESOLVE6+1 |
| >> AIBJSRP | RESOLVE5+1 |
| >> AIBL | CTLNDONE+1*, CTLNDONE+2 |
| >> AIBMSG | CONTROL+3*, NEWFILE+3*, CTLOOPB+2* |
| >> AIBOK | NEWFILE+1 |
| >> AIBOS | NEWFILE+2 |
| >> AIBOT | BJCLOOP+2*, RESOLVE1+1*, RESOLVE2+1*, RESOLVE3+1*, RESOLVE4+1*, RESOLVE5+1*, RESOLVE6+1*, EJCLOOP+2* |
| >> AIBOW | RESOLVE1+1*, RESOLVE2+1*, RESOLVE3+1*, RESOLVE4+1*, RESOLVE5+1*, RESOLVE6+1* |
| AIBOW2 | RESOLVE1+1*, RESOLVE2+1*, RESOLVE3+1*, RESOLVE4+1*, RESOLVE5+1*, RESOLVE6+1*, RESOLVE6+2! |
| >> AIBRLN | CTLNDONE+2* |
| >> AIBT1 | NEWFILE+2, NEWFILE+3 |
| >> AIBT2 | CTLFOUND+4*, NEWFILE+1* |
| >> AIBTGBL | CTLFOUND+2*, CK2ND+3* |
| >> AIBTGFT | CTLFOUND+2*, CK2ND+4* |
| >> AIBTGLT | CTLFOUND+2*, CK2ND+4* |
| AIBTLN | RESOLVE1+1*, RESOLVE2+1*, RESOLVE3+1*, RESOLVE4+1*, RESOLVE5+1*, RESOLVE6+1*, RESOLVE6+2! |
| >> AIBTMP | CTLFOUND+2*, CK2ND+3*, CK2ND+4 |
| >> AIBTZ(1 | CK2ND+4* |
| U | CTLFOUND+4, CK2ND+1, CK2ND+3, GETNAME+1, GETNAME+4, CTLFDONE+1, CTLNDONE+1, BJCL+1, BJCLOOP+2, EJCLOOP+2 |