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

Package: VA FileMan

Routine: DIDX


Information

DIDX ;SFISC/XAK - BRIEF DD ; Jun 22, 2022@09:04:42

Source Information

Source file <DIDX.m>

Entry Points

Name Comments DBIA/ICR reference
L
A
B
TYPE
T ;
H ;
RD ;
END
W1
HD
VP ;Variable Pointer
VP0
VP1
VP2
Q
VP3 ;p23
RT
AH

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !!?Z+Z-2,$P(N,U,1),?30,S,F(Z),",",D1,S,S
  • Line Location: B+1
Function Call: WRITE
  • Prompt: ?M,$J(+X,8)
  • Line Location: B+2
Function Call: WRITE
  • Prompt: " WORD-PROCESSING"
  • Line Location: B+2
Function Call: WRITE
  • Prompt: ?M,S,S
  • Line Location: B+3
Function Call: WRITE
  • Prompt: I
  • Line Location: B+3
Function Call: WRITE
  • Prompt: S:W="p"
  • Line Location: B+3
Function Call: WRITE
  • Prompt: S:W="m"
  • Line Location: B+3
Function Call: WRITE
  • Prompt: D
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?(Z*2),^(.1)," ",?M
  • Line Location: H+1
Function Call: WRITE
  • Prompt: W
  • Line Location: H+2
Function Call: WRITE
  • Prompt: ?M," "_W,!
  • Line Location: H+2
Function Call: WRITE
  • Prompt: W
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?M
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,?$S(IOM-$L(W)-5<M:IOM-5-$L(W),1:M),S
  • Condition for execution: $X+$L(W)+3>IOM
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: $E(W,1,IOM-$X-1),S
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: G
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: ?50,W
  • Line Location: VP+1
Function Call: WRITE
  • Prompt: W
  • Line Location: VP0+2
Function Call: WRITE
  • Prompt: !?(Z+Z+12),W
  • Line Location: VP0+2
Function Call: WRITE
  • Prompt: !?(DDLF-$L(DIVP))+1,DIVP
  • Line Location: VP1+1
Function Call: WRITE
  • Prompt: !?DDLF,DIVP
  • Line Location: VP1+2
Function Call: WRITE
  • Prompt: ?(DDLF+5),$P(DIDV,U,3),?(DDLF+10),$P(DIDV,U,4),?(DDLF+23),$P(DIDV,U,6)
  • Line Location: VP1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: Q
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !?(Z+Z+12)," SCREEN EXPLANATION"_$S($D(DINM):" ON FILE "_$P(%,U),1:"")_":"
  • Line Location: VP3+2
Function Call: WRITE
  • Prompt: D
  • Line Location: VP3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RT+2
Function Call: WRITE
  • Prompt: !?(Z+Z+12),^(.1)," ",?M
  • Line Location: RT+2
Function Call: WRITE
  • Prompt: !,"ALPHABETICALLY BY LABEL"
  • Line Location: AH+0
Function Call: WRITE
  • Prompt: !?5,"Enter YES to list the fields ALPHABETICALLY BY LABEL.",!?5,"Enter NO to list the fields by NUMBER."
  • Line Location: AH+1
Info |  Source |  Entry Points |  Interaction Calls