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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: YSASA2

Package: Mental Health

Routine: YSASA2


Information

YSASA2 ;ASF/ALB-ASI QUICK ENTRY ;3/19/98 15:08

Source Information

Source file <YSASA2.m>

Entry Points

Name Comments DBIA/ICR reference
AA(YSASPIEN,YSASTYP) ;Add NEW RECORD
MAIN(YSASPIEN,YSASSIEN) ;
LOOP ;
WP ;
L3 ;
L4 ;No form feed
VAL ;
FDAGET ;
SCREENH ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"...reading Patient information..."
  • Line Location: AA+11
Function Call: WRITE
  • Prompt: !,"...creating new ASI record..."
  • Line Location: AA+14
Function Call: WRITE
  • Prompt: @IOF,YSHDR1,?45,YSASI1,YSHDR2,YSASI0,!
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !?10,"*** Comments ***",!,"1. General Info",?20,"2. Medical",?40,"3. Employment",?60,"4. Drug/Alcohol"
  • Line Location: WP+2
Function Call: WRITE
  • Prompt: !,"5. Legal",?20,"6. Family hx",?40,"7. Social",?60,"8. Psychiatric"
  • Line Location: WP+3
Function Call: WRITE
  • Prompt: !,"9. Spiritual",?19,"10. Leisure",!
  • Line Location: WP+4
Function Call: WRITE
  • Prompt: YSASI1
  • Line Location: L3+6
Function Call: WRITE
  • Prompt: YSASI0
  • Line Location: L3+6
Function Call: WRITE
  • Prompt: !,$S($P(^YSTX(604.66,YSN,0),U,10)=1&(YSASTYP="FOLLOWUP"):"* ",1:""),YSQ,$S(YSP="":": ",1:": "_YSP_" // ")
  • Line Location: L4+4
Function Call: READ
  • Variable: YSV
  • Timeout: DTIME
  • Line Location: L4+5
Function Call: WRITE
  • Prompt: YSASI1
  • Line Location: L4+16
Function Call: WRITE
  • Prompt: YSASI0
  • Line Location: L4+16
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: L4+23
Function Call: WRITE
  • Prompt: ?$X+3,YSA(0)
  • Line Location: L4+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^YSTX(604 - [#604] Classic Fileman Calls,  GET1^DID,  GET1^DIQ
^YSTX(604.8 - [#604.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call