Call Graph
Call Graph Total: 5
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 3 | MSG^DIALOG $$EXTERNAL^DILFD ^DIR |
| Registration | 2 | $$ASGNCNT^DGPFLF6 $$ANSWER^DGPFUT |
DGPFUT7 ;ALB/RBS - PRF COMMON PROMPTS ; 05/11/2018 10:00
Source file <DGPFUT7.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 3 | MSG^DIALOG $$EXTERNAL^DILFD ^DIR |
| Registration | 2 | $$ASGNCNT^DGPFLF6 $$ANSWER^DGPFUT |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CAT() | ; ----- prompt for Category I, II, Both
; RETURN: -1 or 1^Catetory I (National) ; 2^Category II (Local) ; 3^Category I & II |
|
| DATA() | ; ----- check for any flag assignment
|
|
| DIALOG(FLAG,INPUT) | ;
; .INPUT - required - passed by reference |
|
| E(MSG) | ; ----- ask user to press enter to continue
; Return: -2:Time-out; -1:'^'-out 1:anything else |
|
| FLAG() | ; ----- prompt for All or Select Flag
; RETURN: -1 or A:All Flags or S:Single Flag |
|
| ONEFLAG(CAT,VALID) | ; ----- prompt for name of flag
; INPUT PARAMETERS: ; CAT - optional - I:National Flag II:Local Flag ; default to I ; VALID - optional - 1:verify at least one assignment ; 0:do not verify any current assignments ; default to 1 ; RETURN: -1 or ; 0 if no flag assignments found ; variable_pointer^flagname |
|
| OWNACT() | ; -- prompt for local/not local ownership of assignment action
; Use this for testing ^DD(26.14) ownership ; RETURN: -1 or 1:Local Facility ; 2:Other Facilities ; 3:All Facilities |
|
| OWNASGN() | ; ----- prompt for local/not local ownership of assignment
; Use for testing ^DD(26.13,.04) OWNER SITE ; RETURN: -1 or 1:Local Facility ; 2:Other Facilities ; 3:All Facilities |
|
| STATUS(BOTH) | ; ----- prompt for assignment status
; INPUT PARAMETER: Both - optional, default to 1 ; 1:include both as a choice; 0:do not include both ; Used for asking ^DD(26.13,.03) STATUS ; RETURN: -1 or 1^Active ; 2:^Inactive ; 3^Both Active & Inactive |
|
| START(BEG,END) | ; ----- prompt for starting date
; INPUT PARAMTERS: ; BEG - optional - earliest date allowed ; END - optional - latest date allowed ; default to DT ; RETURN: -1 or Fileman date |
|
| END(BEG,END) | ; ----- prompt for ending date
; INPUT PARAMTERS: ; BEG - optional - earliest date allowed ; END - optional - latest date allowed ; default to DT ; RETURN: -1 or Fileman date |
|
| HELP(DGPF) | ;provide extended DIR("?") help text.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DGPF(26.13 - [#26.13] | EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPF(26.14 - [#26.14] | DATA+2 |
| Name | Line Occurrences |
|---|---|
| $$E | DATA+5 |
| DIALOG | DATA+4, HELP+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | HELP+5~, HELP+8*, HELP+9, HELP+10*, HELP+11 |
| ANS | CAT+4~, CAT+9*, CAT+11, FLAG+2~, FLAG+7*, FLAG+8, FLAG+9, ONEFLAG+11~, ONEFLAG+19*, ONEFLAG+20 , ONEFLAG+21*, ONEFLAG+23, ONEFLAG+24, ONEFLAG+28, OWNACT+5~, OWNACT+10*, OWNACT+12, OWNASGN+5~, OWNASGN+10*, OWNASGN+12 , STATUS+7~, STATUS+13*, STATUS+15, START+6~, START+12*, START+13, END+6~, END+12*, END+13 |
| BEG | START~, START+10, END~, END+10 |
| BOTH | STATUS~, STATUS+8*, STATUS+12 |
| CAT | ONEFLAG~, ONEFLAG+12*, ONEFLAG+13, ONEFLAG+14 |
| DGDIRA | CAT+4~, CAT+5*, CAT+9, FLAG+2~, FLAG+3*, FLAG+7, ONEFLAG+11~, ONEFLAG+16*, ONEFLAG+19, OWNACT+5~ , OWNACT+6*, OWNACT+10, OWNASGN+5~, OWNASGN+6*, OWNASGN+10, STATUS+7~, STATUS+9*, STATUS+13, START+6~, START+7* , START+12, END+6~, END+7*, END+12 |
| DGDIRB | CAT+4~, CAT+6*, CAT+9, FLAG+2~, FLAG+4*, FLAG+7, ONEFLAG+11~, ONEFLAG+17*, ONEFLAG+19, OWNACT+5~ , OWNACT+7*, OWNACT+10, OWNASGN+5~, OWNASGN+7*, OWNASGN+10, STATUS+7~, STATUS+10*, STATUS+13, START+6~, START+8* , START+12, END+6~, END+8*, END+12 |
| DGDIRH | CAT+4~, CAT+7*, CAT+9, FLAG+2~, FLAG+6*, FLAG+7, ONEFLAG+11~, OWNACT+5~, OWNACT+8*, OWNACT+10 , OWNASGN+5~, OWNASGN+8*, OWNASGN+10, STATUS+7~, STATUS+11*, STATUS+13, START+6~, START+9*, START+12, END+6~ , END+9*, END+12 |
| DGDIRO | CAT+4~, CAT+8*, CAT+9, FLAG+2~, FLAG+5*, FLAG+7, ONEFLAG+11~, ONEFLAG+18*, ONEFLAG+19, OWNACT+5~ , OWNACT+9*, OWNACT+10, OWNASGN+5~, OWNASGN+9*, OWNASGN+10, STATUS+7~, STATUS+12*, STATUS+13, START+6~, START+11* , START+12, END+6~, END+11*, END+12 |
| DGFILE | ONEFLAG+11~, ONEFLAG+13*, ONEFLAG+14*, ONEFLAG+18, ONEFLAG+21 |
| DGPF | HELP~, HELP+6*, HELP+7 |
| DIR | E+3~ |
| DIR("A" | E+5* |
| DIR(0 | E+4* |
| DIROUT | E+3~ |
| DIRUT | E+3~ |
| DT | START+10, END+10 |
| DTOUT | DIALOG+2~, E+3~, E+7 |
| DUOUT | DIALOG+2~, E+3~, E+7 |
| END | START~, START+10, END~, END+10 |
| FLAG | DIALOG~, DIALOG+3*, DIALOG+5, ONEFLAG+11~, ONEFLAG+23*, ONEFLAG+24 |
| INPUT | DIALOG~, DIALOG+4* |
| MSG | DATA+4~, E~, E+2*, E+5, HELP+5~ |
| MSG("DIMSG" | DATA+4*, HELP+9*, HELP+11* |
| RET | ONEFLAG+11~, ONEFLAG+24*, ONEFLAG+25, ONEFLAG+28 |
| T | HELP+5~, HELP+7*, HELP+8 |
| U | CAT+11, FLAG+8, ONEFLAG+24, OWNACT+12, OWNASGN+12, STATUS+15, HELP+7 |
| VALID | ONEFLAG~, ONEFLAG+15*, ONEFLAG+25 |
| X | CAT+4~, CAT+10*, CAT+11, DATA+2~*, DATA+3*, DATA+4, E+3~, E+7*, E+8, FLAG+2~ , FLAG+8*, FLAG+9, ONEFLAG+11~, OWNACT+5~, OWNACT+11*, OWNACT+12, OWNASGN+5~, OWNASGN+11*, OWNASGN+12, STATUS+7~ , STATUS+14*, STATUS+15, START+6~, START+10*, START+11, START+13*, START+14, END+6~, END+10*, END+11 , END+13*, END+14 |
| Y | CAT+4~, CAT+11*, CAT+12, E+3~, FLAG+2~, FLAG+9*, FLAG+10, ONEFLAG+11~, OWNACT+5~, OWNACT+12* , OWNACT+13, OWNASGN+5~, OWNASGN+12*, OWNASGN+13, STATUS+7~, STATUS+15*, STATUS+16, START+6~, END+6~ |
| Z | E+3~ |
