©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
DIQ ;SFISC/GFT-CAPTIONED TEMPLATE ;6DEC2009
Source file <DIQ.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WRITEAUD | ||
| WRITE(DIQW) | ||
| GETS(DIQGR,DA,DR,DIQGPARM,DIQGTA,DIQGERRA,DIQGIPAR) | ;Procedure Call
; file,record,field,parm,targetarray,errortargetarray,internal |
|
| WP | ||
| GUY | ;from DII
|
|
| COM | ||
| DT |
|
|
| LF | ||
| MISSAUD | ||
| EN1 | ||
| EN2 | ||
| 1(DA) | ;recursive, for 1 entry or subentry
|
|
| H | ||
| FIND1 | ||
| A | ||
| EN | ;
|
|
| END | ||
| D |
|
|
| PRINTAUD(FLD) | ||
| N | ||
| Q | ||
| S | ||
| R | ||
| W | ||
| Y | ;PRINT TEMPLATES CALL HERE NAKED REFERENCE IS TO ^DD(FILE#,FIELD#,0)
|
|
| UP | ||
| W2 | ;from DIQ1
|
|
| CAPTION(DD,DA,A,N,E) | ;
; Newing of Line Counter 'S' needs to be before call |
|
| STOP() | ||
| GET1(DIQGR,DA,DR,DIQGPARM,DIQGETA,DIQGERRA,DIQGIPAR) | ;Extrinsic Function
; file,record,field,parm,targetarray,errortargetarray,internal |
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | 1+4, 1+5, 1+6, A+2, A+3, A+8, N+2, N+6, WP, MISSAUD+3 , END+1, W, S+1, S+2 |
| ^DIA - [#1.1] | A+5, A+6, MISSAUD, MISSAUD+2, WRITEAUD+1, WRITEAUD+4, WRITEAUD+6 |
| ^DIC - [#1] | CAPTION+3 |
| ^DIC(19 - [#19] | WRITEAUD+6 |
| ^UTILITY($J | LF+4 |
| Name | Line Occurrences |
|---|---|
| $$STOP | N+7, UP, MISSAUD, MISSAUD+2, END, END+3, W2+3, PRINTAUD+1, WRITE+1 |
| 1 | R+7, WP+3 |
| A | 1+6 |
| COM | 1+5 |
| D | DT |
| EN | EN2 |
| EN1 | EN+5 |
| EN2 | EN2 |
| END | N, N+1 |
| LF | PRINTAUD+3, WRITEAUD+8, STOP |
| MISSAUD | N, N+7 |
| N | N+2, N+6, N+7, FIND1, UP |
| PRINTAUD | END+3, W2+6 |
| Q | R+8, N+2, EN+3 |
| R | CAPTION+6, EN+8 |
| S | S+1, S+2 |
| UP | WP, MISSAUD+4 |
| W | 1+6, N+5 |
| W2 | 1+7 |
| WRITE | MISSAUD+3, W2+6, WRITEAUD+5 |
| WRITEAUD | MISSAUD+2, PRINTAUD+1 |
| Y | W+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | N+2, N+3, W+2, S+1, S+2 |
| ^("UP" | A+3 |
| ^(0 | 1+5, WP, END+2, W, WRITEAUD+4, WRITEAUD+6, WRITEAUD+7, S, S+1, S+2 , EN+3, COM |
| ^(1 | LF+5 |
| ^(2 | Y+2 |
| ^(3 | WRITEAUD+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | S* |
| A | CAPTION~, CAPTION+3, R+6*, 1+3*, 1+4*, 1+5, 1+6*, 1+7*, A+3*, A+4* , N+2*, N+3, N+4 |
| C | 1+5*, WP*, W*, Y+2, S*, S+1*, S+2*, S+3, EN+1~, Q! , COM* |
| D | R+2~, R+3*, A+1~, A+6*, A+7*, A+8, A+9*, A+10*, A+11, N , N+8*, UP*, END+2~, END+4, EN+1~, Q! |
| D( | N+8*, UP |
| D0 | CAPTION+2~, R+3*, 1+7, A+2, EN+8 |
| D1 | R+2~ |
| D2 | R+2~ |
| D3 | R+2~ |
| D4 | R+2~ |
| D5 | R+2~ |
| D6 | R+2~ |
| D7 | R+2~ |
| D8 | R+2~ |
| D9 | R+2~ |
| DA | GET1~, GETS~, CAPTION~, R+3, R+7, 1~, WP+3, EN+8* |
| DD | CAPTION~, CAPTION+3, R+3, 1+4, 1+5, 1+6, N+2, N+6, N+7, N+8* , WP, WP+1~, UP*, MISSAUD+3, END+1, W, EN+1~, EN+3*, Q! |
| DD( | N+8*, UP |
| >> DIA | CAPTION+3 |
| DIC | CAPTION+2~, CAPTION+3*, CAPTION+5, R+3, A+3, EN+3 |
| >> DICS | N+6, W, EN+1* |
| >> DICSS | EN+1 |
| >> DIERR | GETS+6* |
| DIFM | GET1+3~*, GETS+3~* |
| >> DIOT(2 | LF+1 |
| DIQ | CAPTION+2~, EN+7~ |
| DIQ(0 | CAPTION+3*, 1+7, A, END+4, EN+7* |
| DIQAUD | 1+1~ |
| DIQAUD( | A+11*, END+1, W2+3, W2+6, PRINTAUD+1, PRINTAUD+2! |
| DIQAUDD | R+2~, A+2*, A+3*, A+4*, A+7 |
| DIQAUDD( | A+4, N+8*, MISSAUD+2 |
| DIQAUDD(0 | A+3*, A+4 |
| DIQAUDE | R+2~, A+2*, A+3*, A+4*, A+5, FIND1, MISSAUD, PRINTAUD+2 |
| DIQAUDE(0 | A+2*, A+3*, A+4, MISSAUD |
| DIQAUDR | FIND1~ |
| DIQDD | R+2~, R+3*, A+2, A+3*, A+5, A+6, A+8, MISSAUD, MISSAUD+2, WRITEAUD+1 , WRITEAUD+4, WRITEAUD+6 |
| DIQE | R+2~, MISSAUD*, MISSAUD+2 |
| DIQEMISS | MISSAUD+1~, MISSAUD+2, MISSAUD+3* |
| DIQGERRA | GET1~, GETS~, GETS+7 |
| DIQGETA | GET1~ |
| DIQGIPAR | GET1~, GETS~ |
| DIQGPARM | GET1~, GETS~ |
| DIQGQERR | GETS+4~, GETS+6 |
| DIQGR | GET1~, GETS~ |
| DIQGTA | GETS~ |
| DIQS | CAPTION+2~, R+4, R+6, 1+2, 1+3, 1+5, WP, W+2, LF |
| DIQUIET | GET1+2~*, GETS+2~* |
| DIQW | WRITE~, WRITE+1* |
| DIQWL | WRITE~, WRITE+1* |
| DIQX | W2+1~, W2+3, W2+4*, W2+5 |
| DIQZ | R+2~, R+6*, 1+3*, 1+4, N+2*, N+3, N+4, N+6*, N+8, END+1* , END+3 |
| DIR | R+1!, LF+3~ |
| DIR(0 | LF+3* |
| DIRUT | R+1!, LF+3 |
| DIWF | WP+1~, LF+1 |
| DIWL | WP+1~ |
| DIWR | WP+1~ |
| >> DK | EN+3* |
| DL | R+2~, R+3*, 1+6, 1+7, A+2, A+4, N, N+1, N+6, N+7 , N+8*, FIND1, WP*, UP*, MISSAUD+2 |
| DN | WP+1~, WP+2 |
| DR | GET1~, GETS~, EN1, EN2*, EN+4, EN+5 |
| DRX | EN1*, EN2*, EN2+1! |
| >> DSC( | N+7 |
| DTIME | R+1* |
| DTOUT | R+1!, LF+4 |
| DUOUT | R+1!, LF+4 |
| >> DX(0 | LF+2 |
| E | CAPTION~, CAPTION+4*, A+8, A+10, N+1, MISSAUD+1~, MISSAUD+2*, PRINTAUD~, PRINTAUD+1*, WRITEAUD+1 , WRITEAUD+4, WRITEAUD+6, EN+1~, EN+6*, Q! |
| FLD | PRINTAUD~, PRINTAUD+1, PRINTAUD+2 |
| IOM | R*, W2+3, WRITE+1, EN+2* |
| IOP | EN+2*, Q! |
| IOSL | R*, LF+1, LF+2, EN+2 |
| IOST | R*, LF+2, EN+2 |
| N | CAPTION~, CAPTION+5*, GUY+1~*, 1+6, A+8, A+9, A+10~*, N*, N+2, N+6 , N+7, N+8*, FIND1*, WP+1~, WP+3*, UP*, WRITEAUD~, WRITEAUD+1*, WRITEAUD+2, EN+1~ , EN+4*, EN+5*, Q! |
| N( | N+8*, UP |
| O | 1+7*, N+6*, N+7*, N+8, WP*, W*, W2+2*, W2+3, W2+6, WRITEAUD~ , WRITEAUD+1*, WRITEAUD+2, WRITEAUD+3, WRITEAUD+6*, WRITEAUD+7*, EN+1~, EN+4*, EN+5*, EN+6, Q! |
| >> POP | EN+2 |
| S | R+3*, 1+6, 1+7, N+2, WP, WP+2*, WP+3, END+4, WRITEAUD+8, STOP , LF*, LF+2, LF+3*, LF+4*, LF+5~, EN2, EN+1* |
| SUB | A+1~, A+8*, A+9, A+10 |
| U | 1+5, A+6, A+8, N+3, N+6, WP, MISSAUD+2, MISSAUD+3, END+2, W , WRITEAUD+4, WRITEAUD+6, WRITEAUD+7, S, S+1, S+2, LF+4, EN+3*, COM |
| W | 1+6*, 1+7*, N+3*, W, W+2, W2+3, W2+4, W2+6, WRITEAUD~, WRITEAUD+2* , WRITEAUD+3*, WRITEAUD+4*, WRITEAUD+5, WRITEAUD+6!*, WRITEAUD+7*, WRITEAUD+8, EN+1~, Q! |
| X | CAPTION+7*, N+6*, N+7*, N+8, LF+3~, COM* |
| Y | 1+6*, 1+7*, N+3*, N+4*, W2+2, Y+1*, S*, S+1*, S+2*, S+3 , D*, DT, LF+3~, LF+4 |
| Z | A+1~, A+2*, A+3, A+5*, A+6, A+11, WRITEAUD~, WRITEAUD+4*, WRITEAUD+6*, WRITEAUD+7* , EN+1~, Q! |