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: DDEPRT

Package: VA FileMan

Routine: DDEPRT


Information

DDEPRT ;SLC/MKB -- Entity Print Utilities ;09/18/18 4:36pm

Source Information

Source file <DDEPRT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- enter here to print a SDA entity
ENP ; -- entry point for [queued] report
END ;
ENTITY(Y) ; -- select an entity
FORMAT() ; -- summary or details?
SUM ; -- print summary of ENTity
LINE(DA) ; -- print single item row
DET ; -- print details of ENTity
DESC ; -- description
MAIN ; -- main Entity properties
ITEM(DA,NUM,LVL) ; -- print single item
TYPE(X,L) ; -- return display name of item type X
NAME(NUM) ; -- return name of sub/file
MCODE(CAPTION,CODE) ; -- print code fields
PG ; -- check line count for new page
HEADER ; -- all headers except first
HDR1 ;first header for CRTs
HDR2 ;first header for non-CRTs

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"Report queued!",!,"Task number: "_$G(ZTSK),!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,"Report canceled!",!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!,"Seq Item Type Field Sub/File Entity"
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !,$P(X0,U,2),?5,$P(X0,U),?35,$P(X0,U,3),$$RJ^XLFSTR($P(X0,U,5),7)," ",$P(X0,U,4)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: !!,"Seq Item",!,"Number Properties",!,"------ ----------"
  • Line Location: DET+4
Function Call: WRITE
  • Prompt: !,$G(^(I,0))
  • Line Location: DESC+2
Function Call: WRITE
  • Prompt: !!," DISPLAY NAME: "_$G(^DDE(+DDENT,.1))
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !!," SORT BY: "_$P(X0,U,3)
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: ?40,"DATA MODEL: "_$S($P(X0,U,6)="S":"SDA",$P(X0,U,6)="F":"FHIR",1:"")
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !," FILTER BY: "_$P(X0,U,4)
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: ?41,"READ ONLY: "_$S($P(X0,U,5):"YES",1:"NO")
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !,"QUERY ROUTINE: "_$G(^DDE(+DDENT,5)),!
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !!,TAB,$$LJ^XLFSTR($G(NUM),9),"NAME: "_$P(X0,U)
  • Line Location: ITEM+4
Function Call: WRITE
  • Prompt: !,TAB,"TYPE: "_$$TYPE(TYPE,+X1)
  • Line Location: ITEM+6
Function Call: WRITE
  • Prompt: !,TAB,"FIELD: "_$$GET1^DID(FN,FLD,,"LABEL")_" (#"_FLD_")"
  • Line Location: ITEM+10
Function Call: WRITE
  • Prompt: " > "_$$GET1^DID(FN,FLD,,"LABEL")_" (#"_FLD_")"
  • Line Location: ITEM+14
Function Call: WRITE
  • Prompt: " [internal]"
  • Line Location: ITEM+15
Function Call: WRITE
  • Prompt: " [word wrap]"
  • Line Location: ITEM+16
Function Call: WRITE
  • Prompt: !,TAB," in "_$$NAME(FN)_" (#"_FN_")"
  • Line Location: ITEM+18
Function Call: WRITE
  • Prompt: !,TAB,"FILE: "_$$NAME(FN)_" (#"_FN_")"
  • Line Location: ITEM+21
Function Call: WRITE
  • Prompt: !,TAB,"SUBFILE: "_$$NAME(FN)_" (#"_FN_")"
  • Line Location: ITEM+22
Function Call: WRITE
  • Prompt: !,TAB,"XREF: "_$P(X1,U,3)
  • Line Location: ITEM+23
Function Call: WRITE
  • Prompt: !,TAB,"FILTER: "_$P(X1,U,4)
  • Line Location: ITEM+24
Function Call: WRITE
  • Prompt: !,TAB,"VALUE: "_^DDE(+DDENT,1,DA,2)
  • Line Location: ITEM+29
Function Call: WRITE
  • Prompt: !,TAB,"ENTITY: "_$P($G(^DDE(+$P(X0,U,8),0)),U)
  • Line Location: ITEM+31
Function Call: WRITE
  • Prompt: !,TAB,"TAG: "_$P(X1,U,2)
  • Line Location: ITEM+32
Function Call: WRITE
  • Prompt: !!,TAB,"Group Item"
  • Line Location: ITEM+35
Function Call: WRITE
  • Prompt: !,TAB,"Order Properties"
  • Line Location: ITEM+36
Function Call: WRITE
  • Prompt: !,TAB,"----- ----------"
  • Line Location: ITEM+37
Function Call: WRITE
  • Prompt: !,CAPTION,$E(CODE,1,WIDTH)
  • Line Location: MCODE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: X1,!,X2,$$RJ^XLFSTR(Y,79-$L(X2))
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HDR2+6
Info |  Source |  Entry Points |  Interaction Calls