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

Package: Scheduling

Routine: SCRPW54


Information

SCRPW54 ;RENO/KEITH - Means Test Summary of Visits & Uniques (OP3, OP4, OP5) or (IP3, IP4, IP5) ; 5/21/01 3:32pm

Source Information

Source file <SCRPW54.m>

Entry Points

Name Comments DBIA/ICR reference
START ;Print report
EXIT
AA(SDIV) ;Average age
DPRT(SDV) ;Print division
PLINE1(SDH) ;Print output line
PL(SDLAB,SDMT) ;Print line
PLINE2(SDLT) ;Print output line
HDR ;Print header
HD1(SDR) ;Print subheader
HD2 ;Print subheader
DLIST ;Create alphabetic list of divisions found
VALID() ;Check encounter record
DIV() ;Check division
STOP ;Check for stop task request
SET(SDIV) ;Set division lists
S1(SDMT)
MOT()
SEX()
POW()
AGE()

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX
  • Line Location: START+19
Function Call: WRITE
  • Prompt: !
  • Line Location: DPRT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DPRT+8
Function Call: WRITE
  • Prompt: !!?(132-$L(SDX)\2),SDX
  • Line Location: PLINE1+14
Function Call: WRITE
  • Prompt: !?18,$J(SDLAB_":",33),?54,$J(SDMO,9,0),?69,$J(SDLAB_":",33),?105,$J(SDYR,9,0)
  • Line Location: PL+5
Function Call: WRITE
  • Prompt: ?104,$J(SDTOT,10,0)
  • Line Location: PLINE2+4
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDTIT(SDI))\2),SDTIT(SDI)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,SDLINE,!,"For Fiscal Year activity through ",SD("PEDT"),!,"Date printed: ",SDPNOW,?(IOM-6-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!?(132-$L(SDX)\2),$E(SDLINE,1,$L(SDX)),!?(132-$L(SDX)\2),SDX,!?(132-$L(SDX)\2),$E(SDLINE,1,$L(SDX))
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: !!?18,$J(SDX_":",33),?58,"TOTAL"
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: ?69,$J(SDX_":",33),?109,"TOTAL",!?18,$E(SDLINE,1,45),?69,$E(SDLINE,1,45)
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: !!?(132-$L(SDX)\2),$E(SDLINE,1,$L(SDX)),!?(132-$L(SDX)\2),SDX,!?(132-$L(SDX)\2),$E(SDLINE,1,$L(SDX))
  • Line Location: HD2+1
Function Call: WRITE
  • Prompt: !?24,"SC",?35,"NSC",?45,"TOTAL"
  • Line Location: HD2+2
Function Call: WRITE
  • Prompt: !?20,"MT COPAY",?32,"MT COPAY",?44,"MT COPAY",?56,"MT COPAY",?68,"GMT COPAY",?87,"NON",?99,"NOT",?109,"GRAND"
  • Line Location: HD2+3
Function Call: WRITE
  • Prompt: !?10,"UNIQUES:",?21,"EXEMPT",?33,"EXEMPT",?45,"EXEMPT",?56,"REQUIRED",?68,"REQUIRED",?83,"VETERAN",?92,"APPLICABLE",?109,"TOTAL"
  • Line Location: HD2+4
Function Call: WRITE
  • Prompt: !?6,$E(SDLINE,1,12)
  • Line Location: HD2+5
Function Call: WRITE
  • Prompt: ?(20+(12*SDI)),$E(SDLINE,1,10)
  • Line Location: HD2+5
Info |  Source |  Entry Points |  Interaction Calls