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

Package: Mental Health

Routine: YSFORM


Information

YSFORM ;SLC/TGA-HEADER & FOOTER FOR FORMS ;3/27/90 15:01 ;

Source Information

Source file <YSFORM.m>

Entry Points

Name Comments DBIA/ICR reference
ENHD ; Called by routines YSDX3R, YSDX3R1, YSDX3RU, YSDSR, YSHX1R YSPDR1
; YSPDXR, YSPHYR, YSPP, YSPP1, YSPP1A, YSPP3, YSPP4, YSPP5, YSPP6
; YSPP7, YSPP8, YSPP9, YSPRBR1, YSPRBR2, YSPROB5, YSPROBR, YSPROSE
; YSPTXR
ENFT ; Called by routines YSDX3R1, YSDX3RU, YSDXR, YSHX1R YSPDR1
; YSPDXR, YSPHYR, YSPP, YSPP1, YSPP1A, YSPP3, YSPP4, YSPP5
; YSPP7, YSPP8, YSPP9, YSPRBR1, YSPRBR2, YSPROB5, YSPROBR1, YSPROSE
; YSPTXR
SITE() ;Set YSLOC to location using KERNEL site parameter file entry
MASKSSN(YSSSN) ; return only last 4 of SSN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENHD+5
Function Call: WRITE
  • Prompt: YSNM,?47,"SSN ",$$MASKSSN(YSSSN),?65,"DOB ",YSDOB,!
  • Line Location: ENHD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ENHD+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ENHD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ENHD+9
Function Call: WRITE
  • Prompt: "MEDICAL RECORD"
  • Condition for execution: YSFTR]""
  • Line Location: ENHD+9
Function Call: WRITE
  • Prompt: ?80-$L(YSFHDR)/2,YSFHDR
  • Line Location: ENHD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ENHD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ENHD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ENFT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ENFT+8
Function Call: WRITE
  • Prompt: ?28,"(Continued on next page)"
  • Condition for execution: YSCON
  • Line Location: ENFT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ENFT+9
Function Call: WRITE
  • Prompt: "_"
  • Line Location: ENFT+9
Function Call: WRITE
  • Prompt: !,YSNM,?(31+(37-$L(YSLCN)/2)),YSLCN
  • Line Location: ENFT+10
Function Call: WRITE
  • Prompt: ?69,"VAF 10-9034"
  • Condition for execution: YSFTR]""
  • Line Location: ENFT+10
Function Call: WRITE
  • Prompt: !,$$MASKSSN(YSSSN)
  • Line Location: ENFT+12
Function Call: WRITE
  • Prompt: " DOB ",YSDOB
  • Condition for execution: YSDOB]""
  • Line Location: ENFT+12
Function Call: WRITE
  • Prompt: ?(80-$L(YSFTR(1))),YSFTR(1)
  • Condition for execution: YSFTR]""
  • Line Location: ENFT+12
Info |  Source |  Entry Points |  Interaction Calls