DIQ ;SFISC/GFT - CAPTIONED TEMPLATE ;28NOV2016
Source file <DIQ.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GET1(DIQGR,DA,DR,DIQGPARM,DIQGETA,DIQGERRA,DIQGIPAR) | ;Extrinsic Function
; file,record,field,parm,targetarray,errortargetarray,internal |
|
| GETS(DIQGR,DA,DR,DIQGPARM,DIQGTA,DIQGERRA,DIQGIPAR) | ;Procedure Call
; file,record,field,parm,targetarray,errortargetarray,internal |
|
| CAPTION(DD,DA,A,N,E) | ;
; Newing of Line Counter 'S' needs to be before call |
|
| GUY | ;from DII
|
|
| R | ||
| 1(DA) | ;recursive, for 1 entry or subentry
|
|
| NUMBER | ||
| A | ||
| N | ||
| FIND1 | ||
| WP | ||
| UP | ||
| MISSAUD | ||
| WPAUD(FLD,DIQCHNGD) | ||
| END | ||
| W | ||
| VP | ||
| W2 | ;from DIQ1
|
|
| PRINTAUD(FLD) | ||
| WRITEAUD | ||
| WRITE(DIQW) | ||
| Y | ;PRINT TEMPLATES CALL HERE NAKED REFERENCE IS TO ^DD(FILE#,FIELD#,0)
|
|
| TYPE | ||
| S | ||
| D |
|
|
| SET(FILE,FIELD,Y) | ;GET EXTERNAL VERSION OF 'Y' FOR A SET FIELD
|
|
| PARSET(C,Y) | ;FOR SPECIFIER C, CHANGE Y TO ITS EXTERNAL VALUE called from DIDU & DDS11
|
|
| LANGSET() | ;USES NAKED REFERENCE TO ^DD(FILE,FIELD,0)
|
|
| DT |
|
|
| H | ||
| STOP() | ||
| LF | ||
| EN1 | ||
| EN2 | ||
| EN | ;
|
|
| Q | ||
| COM |
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | EN+2 |
| $$EZBLD^DIALOG | NUMBER, WPAUD+9, WPAUD+11, WRITEAUD+2, WRITEAUD+3, WRITEAUD+4 |
| $$LABEL^DIALOGZ | WP, MISSAUD+3, W |
| CALLOUT^DIEFU | GETS+7 |
| INIZE^DIEFU | GET1+3, GETS+3 |
| $$OUTPUT^DIETLIBF | TYPE |
| INQ^DII | DIQ+9 |
| $$FMTE^DILIBF | WPAUD+5 |
| H^DIO2 | H |
| ^DIQ1 | END+4 |
| DDENTRY^DIQG | GET1+4 |
| DDENTRY^DIQGQ | GETS+5 |
| ^DIR | LF+3 |
| $$DATE^DIUTL | WRITEAUD+4 |
| $$NAKED^DIUTL | D, LANGSET+2 |
| ^DIWP | WPAUD+13 |
| ^DIWW | WPAUD+15 |
| DIQ^DIWW | WP+2 |
| 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 |
|
| Function Call: WRITE |
|
| Routine Call |
|
| 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, END+1 , W, VP, VP+1, S+1, S+2, SET+1 |
| ^DIA - [#1.1] | A+5, A+6, MISSAUD, MISSAUD+2, WPAUD+5, WPAUD+8, WPAUD+13, WRITEAUD+1, WRITEAUD+4, WRITEAUD+6 |
| ^DIC - [#1] | CAPTION+3 |
| ^DIC(19 - [#19] | WPAUD+6, WRITEAUD+6 |
| ^UTILITY($J | LF+4 |
| Name | Line Occurrences |
|---|---|
| $$LANGSET | S, SET+1 |
| $$STOP | N+7, UP, MISSAUD, MISSAUD+2, WPAUD+3, 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 | WPAUD+14, WPAUD+17, PRINTAUD+3, WRITEAUD+8, STOP |
| MISSAUD | N, N+7 |
| N | N+2, N+6, N+7, FIND1, UP |
| PARSET | S, SET+1 |
| 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 | NUMBER |
| WPAUD | WP, END+2 |
| WRITE | MISSAUD+3, WPAUD+12, W2+6, WRITEAUD+5 |
| WRITEAUD | MISSAUD+2, PRINTAUD+1 |
| Y | VP+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PARSET+1~, PARSET+2* |
| A | CAPTION~, CAPTION+3, R+6*, 1+3*, 1+4*, 1+5, 1+6*, NUMBER*, A+3*, A+4* , N+2*, N+3, N+4 |
| C | 1+5*, WP*, WPAUD+2, W*, VP, TYPE, TYPE+1, S, S+1*, S+2* , S+3, PARSET~, PARSET+2*, LANGSET+1~*, LANGSET+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*, NUMBER, 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, VP, VP+1, 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~* |
| DIN | PARSET+1~, PARSET+2* |
| >> DIOT(2 | LF+1 |
| DIQ | CAPTION+2~, EN+7~ |
| DIQ(0 | CAPTION+3*, NUMBER, A, END+4, EN+7* |
| DIQAUD | 1+1~ |
| DIQAUD( | A+11*, WPAUD+3, WPAUD+16!, 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*, WP, 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~ |
| DIQCHNGD | WPAUD~, WPAUD+9*, WPAUD+10*, WPAUD+11* |
| DIQDD | R+2~, R+3*, A+2, A+3*, A+5, A+6, A+8, MISSAUD, MISSAUD+2, WPAUD+5 , WPAUD+8, WPAUD+13, 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, VP+3, 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+2, END+3 |
| DIR | R+1!, LF+3~ |
| DIR(0 | LF+3* |
| DIRUT | R+1!, LF+3 |
| DIWF | WP+1~, WPAUD~, WPAUD+2*, LF+1 |
| DIWL | WP+1~, WPAUD~, WPAUD+2* |
| DIWR | WP+1~, WPAUD~, WPAUD+2* |
| >> DK | EN+3* |
| DL | R+2~, R+3*, 1+6, NUMBER, 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 |
| DUZ("LANG" | LANGSET+2 |
| >> DX(0 | LF+2 |
| E | CAPTION~, CAPTION+4*, A+8, A+10, N+1, MISSAUD+1~, MISSAUD+2*, WPAUD~, WPAUD+2*, WPAUD+3* , WPAUD+5, WPAUD+8, WPAUD+13, PRINTAUD~, PRINTAUD+1*, WRITEAUD+1, WRITEAUD+4, WRITEAUD+6, EN+1~, EN+6* , Q! |
| F | VP+1~* |
| FIELD | SET~, SET+1 |
| FILE | SET~, SET+1 |
| FLD | WPAUD~, WPAUD+1, WPAUD+3, WPAUD+16, PRINTAUD~, PRINTAUD+1, PRINTAUD+2 |
| IOM | R*, WPAUD+2, 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*, WPAUD~, WRITEAUD~, WRITEAUD+1*, WRITEAUD+2 , EN+1~, EN+4*, EN+5*, Q! |
| N( | N+8*, UP |
| O | NUMBER*, N+6*, N+7*, N+8, WP*, WPAUD~, WPAUD+6*, WPAUD+7*, W*, VP+1* , 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, NUMBER, N+2, WP, WP+2*, WP+3, WPAUD+13, 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, WPAUD+5, WPAUD+6, WPAUD+7 , END+2, W, VP+1, WRITEAUD+4, WRITEAUD+6, WRITEAUD+7, S+1, S+2, LANGSET+1, LF+4 , EN+3*, COM |
| W | 1+6*, NUMBER*, N+3*, WPAUD~, WPAUD+4*, WPAUD+5*, WPAUD+6*, WPAUD+7*, WPAUD+9*, WPAUD+10* , WPAUD+11*, WPAUD+12, WPAUD+13*, WPAUD+14~, W, VP, VP+1, VP+3, 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, WPAUD+8*, WPAUD+9, WPAUD+10, WPAUD+13*, LF+3~, COM* |
| Y | 1+6*, NUMBER*, N+3*, N+4*, VP+1, W2+2, Y+1*, S, S+1*, S+2* , S+3, D*, SET~, SET+1, SET+2, PARSET~, PARSET+2*, DT, LF+3~, LF+4 |
| Z | A+1~, A+2*, A+3, A+5*, A+6, A+11, WPAUD~, WPAUD+5*, WPAUD+6*, WPAUD+7* , WRITEAUD~, WRITEAUD+4!, WRITEAUD+6*, WRITEAUD+7*, EN+1~, Q! |
| Z(1 | WRITEAUD+4* |
| Z(2 | WRITEAUD+4* |
| Z(3 | WRITEAUD+4* |
