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

Package: VA FileMan

Routine: DIDC


Information

DIDC ;SFISC/STAFF-CONDENSED DD ;26APR2010

Source Information

Source file <DIDC.m>

Entry Points

Name Comments DBIA/ICR reference
TODAY
EN
EXIT
P
AFOF
P1
P2
MO
M
PTR ;
PT
L ; CUSTOM LOOP
DD
SUBFILES
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(DIFF)&($Y)
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !!,"CONDENSED DATA DICTIONARY---",NAME," FILE"," (#",N(0),")"
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?47,"UCI: "_Y
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?63,$S($G(^DD(N(0),0,"VR"))]"":" VERSION: "_$P(^("VR"),U),1:" ")
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,"STORED IN: ",$S($D(^DIC(N(0),0,"GL")):^("GL"),1:""),?58,DAT,?70,"PAGE ",P
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,"STORED IN: ",$S($D(^DIC(N(0),0,"GL")):^("GL"),1:""),?58,DAT,?70,"PAGE ",P
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,"STORED IN: ",$S($D(^DIC(N(0),0,"GL")):^("GL"),1:""),?58,DAT,?70,"PAGE ",P
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,?50,"FILE SECURITY"
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !,?35,"DD SECURITY : ",$S($D(^DIC(N(0),0,"DD")):^("DD"),1:""),?58,"DELETE SECURITY: ",$S($D(^("DEL")):^("DEL"),1:"")
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !,?35,"READ SECURITY : ",$S($D(^("RD")):^("RD"),1:""),?58,"LAYGO SECURITY : ",$S($D(^("LAYGO")):^("LAYGO"),1:"")
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !,?35,"WRITE SECURITY : ",$S($D(^("WR")):^("WR"),1:"")
  • Line Location: P+6
Function Call: WRITE
  • Prompt: !?10,"(NOTE: Kernel's File Access Security applies to this File.)",!
  • Line Location: AFOF+0
Function Call: WRITE
  • Prompt: !,"CROSS REFERENCED BY:",!,?5
  • Line Location: AFOF+1
Function Call: WRITE
  • Prompt: !,?5
  • Condition for execution: $X>50&($L($P(^DD(NF,N1,0),"^",1)>20))
  • Line Location: AFOF+3
Function Call: WRITE
  • Prompt: " ",$P(^DD(NF,N1,0),"^",1),"(",NY,") "
  • Line Location: AFOF+3
Function Call: WRITE
  • Prompt: !!!,?33,"FILE STRUCTURE",!!
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: "FIELD",?10,"FIELD",!,"NUMBER",?10,"NAME",!
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !,M(0),?10,$P(^DD(N(0),M(0),0),U,1)," "
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !,?10+((K-1)*5),M(K),?15+((K-1)*5),$P(^DD(N(K),M(K),0),U,1)," "
  • Line Location: MO+1
Function Call: WRITE
  • Prompt: $S(+J:"(Multiple-"_+J,1:"("_J),"), [",$P(^(0),U,4),"]"
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,F_" "
  • Line Location: PT+0
Function Call: WRITE
  • Prompt: !?19
  • Condition for execution: $X>24
  • Line Location: PT+0
Function Call: WRITE
  • Prompt: "(#"_^(0)_") "
  • Line Location: PT+0
Function Call: WRITE
  • Prompt: ?33," ",$S(%=F(1):"",1:$P(^DD(%,0)," SUB-FIELD",1)_":")
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: ?34,$P(^DD(%,S,0),U)," (#"_S_")",!
  • Line Location: PT+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L+2
Info |  Source |  Entry Points |  Interaction Calls