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

Package: Scheduling

Routine: SDCLAS1


Information

SDCLAS1 ;ALB/TMP,MRY - Clinic Assignment Listing ; 12/23/02

Source Information

Source file <SDCLAS1.m>

Entry Points

Name Comments DBIA/ICR reference
MTINIT
PATIENT
PRT
DAYS
HDR
HDR1
TOT
PRT1
PRT2
CKHDR
END
AGE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SDCLAS1+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !,?0,SDFLG,SDNAM,?32,$P(Y1,"^")
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: ?45,$S($P(Y,"^",6)="O":"OPT",$P(Y,"^",6)="A":"AC",1:"")
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: ?87,X
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?96,Y
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: ?110,Y
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: ?124,SDAGE
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !?52,SDCAT
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !,?2,"As of Date: "
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: Y,?53,"CLINIC ASSIGNMENT LISTING",?92,"Page ",PG,?106,"Stop Code ",SDSTOP,!,?2,"Print Date: "
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: Y,?53,"CLINIC ASSIGNMENT LISTING",?92,"Page ",PG,?106,"Stop Code ",SDSTOP,!,?2,"Print Date: "
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: ?X,"FOR ",SDCLNAM
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,?X,SDIV
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: SDL
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,?83,"Number of",?98,"Date of",?108,"Date of",!,?43,"Patient",?65,"Elig",?83,"Days",?98,"Last",?108,"Next",!,?12,"Name",?35,"SSN",?43,"Status",?65,"Code",?83,"Enrolled"
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: ?98,"Visit",?108,"Appointment",?124,"Age",!
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,?1,"+ = Enrolled as of ",Y," with no future appts."
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !,SDL,!
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !!,?3,"NUMBER OF ACTIVE PATIENTS : ",$J(+$G(^UTILITY($J,"SDACT",SDIFN)),5)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !,?3,"NUMBER OF ENROLLED PATIENTS",!,?5,"(NO FUTURE APPOINTMENTS) : ",$J(+$G(^UTILITY($J,"SDENR",SDIFN)),5)
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !!,?3,"Eligibility Code Totals: ",SDCLNAM,!!
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: !!,?3,"Means Test Category Totals: ",SDCLNAM,!!
  • Line Location: TOT+5
Function Call: WRITE
  • Prompt: ?X1,$S(SDEL'>0:"Unknown",1:$P(^DIC(8,SDEL,0),"^",1)) S:SDEL'>0
  • Line Location: PRT1+0
Function Call: WRITE
  • Prompt: ?(X1+30),": ",$S($D(SDELIG(SDEL)):$J(SDELIG(SDEL),5),1:$J("0",5))
  • Line Location: PRT1+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: X1=93
  • Line Location: PRT1+0
Function Call: WRITE
  • Prompt: ?X1,$S(SDMT["A":"NSC MT COPAY EXEMPT",SDMT["B":"CATEGORY B",SDMT["C":"MT COPAY REQUIRED",SDMT["G":"GMT COPAY REQUIRD",SDMT["N":"NON-VETERAN",SDMT["U":"REQUIRED (NOT DONE)",SDMT["X":"NOT APPLICABLE",1:"UNKNOWN")
  • Line Location: PRT2+0
Function Call: WRITE
  • Prompt: ?(X1+19),": ",$S($D(SDMT1(SDMT)):$J(SDMT1(SDMT),5),1:$J("0",5))
  • Line Location: PRT2+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: X1=49
  • Line Location: PRT2+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CKHDR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CKHDR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Info |  Source |  Entry Points |  Interaction Calls