Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DIV

Package: VA FileMan

Routine: DIV


Information

DIV ;SFISC/GFT - VERIFY FLDS ;5DEC2016

Source Information

Source file <DIV.m>

Entry Points

Name Comments DBIA/ICR reference
DIC
Q
ALL
ALLPOINT ;
ALLFLDS(A,DIVRTYPE)
NEXTLVL ;
H
VER(DIVRFILE,DIVRREC,DIVRDR,DIVROUT) ;
  • ICR #1618
    • Status: Active
    • Usage: Private
    DIVROUT
    X
    INIT ;Get header info and print first header
    DEVSEL ;Prompt for device
    ENQUEUE ;Entry point for queued reports

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7)," NO ENTRIES ON FILE!"
    • Line Location: DIV+11
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: DIC+2
    Function Call: WRITE
    • Prompt: !,"VERIFY WHICH "_$P(^DD(A,0),U)_": "
    • Line Location: DIC+2
    Function Call: WRITE
    • Prompt: !!?5,"YES means that every field at this level in the file will"
    • Line Location: H+0
    Function Call: WRITE
    • Prompt: !?5,"be checked to see if it conforms to the input transform."
    • Line Location: H+1
    Function Call: WRITE
    • Prompt: !!?5,"NO means that ALL will be used to lookup a field in the"
    • Line Location: H+2
    Function Call: WRITE
    • Prompt: !?5,"file which begins with the letters ALL, e.g., ALLERGIES."
    • Line Location: H+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: DEVSEL+4
    Function Call: WRITE
    • Prompt: !,"Report queued!",!,"Task number: "_$G(ZTSK),!
    • Line Location: DEVSEL+15
    Function Call: WRITE
    • Prompt: !,"Report canceled!",!
    • Line Location: DEVSEL+16
    Info |  Source |  Entry Points |  Interaction Calls