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

Package: Clinical Reminders

Routine: PXRMGECM


Information

PXRMGECM ;SLC/JVS GEC-Score Reports-cont'd ;7/14/05 10:43

Source Information

Source file <PXRMGECM.m>

Entry Points

Name Comments DBIA/ICR reference
SUM ;By Summary by Patient
DIS ;Start of Display
SQROOT(NUM) ;Calculat Square Root
SQROOTX
VALUE(DA) ;Return value for score

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !,"=============================================================================="
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !,"GEC Patient-Summary (Score)"
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: !,"Data on Complete Referrals Only"
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+6
Function Call: WRITE
  • Prompt: !,?33,"Finished",?49,"Basic",?55,"Skilled",?63,"Patient",?73,"TOTAL"
  • Line Location: DIS+7
Function Call: WRITE
  • Prompt: !,"Name",?22,"SSN",?33,"Date",?44,"IADL",?49,"ADL",?55,"Care",?63,"Behaviors",?73,"ACROSS"
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: !,"Name^SSN^Referral Date^IADL^Basic ADL^Skilled Care^Behaviors^Totals"
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: !,"=============================================================================="
  • Line Location: DIS+10
Function Call: WRITE
  • Prompt: !,$E($P(DFN," ",1,$L(DFN," ")-1),1,19),?20," ("_$P(DFN," ",$L(DFN," "))_")",?33,$P($$FMTE^XLFDT(DATER,"5ZM"),"@",1),?44,$J(S1,3),?49,$J(S2,3),?55,$J(S3,3),?63,$J(S4,3),?73,$J(S5,3)
  • Line Location: DIS+28
Function Call: WRITE
  • Prompt: !,$P(DFN," ",1,$L(DFN," ")-1),"^",$P(DFN," ",$L(DFN," ")),"^",$P($$FMTE^XLFDT(DATER,"5ZM"),"@",1),"^",S1,"^",S2,"^",S3,"^",S4,"^",S5
  • Line Location: DIS+29
Function Call: WRITE
  • Prompt: !,?44,"_________________________________"
  • Line Location: DIS+31
Function Call: WRITE
  • Prompt: !,?33,"Totals > >",?44,$J(S1T,3),?49,$J(S2T,3),?55,$J(S3T,3),?63,$J(S4T,3),?72,$J(S5T,4)
  • Line Location: DIS+32
Function Call: WRITE
  • Prompt: !,?34,"Means > >",?44,$J($FN(S1T/CNT,"",1),3),?49,$J($FN(S2T/CNT,"",1),3),?55,$J($FN(S3T/CNT,"",1),3),?63,$J($FN(S4T/CNT,"",1),3),?72,$J($FN(S5T/CNT,"",1),4)
  • Line Location: DIS+33
Function Call: WRITE
  • Prompt: !,?20,"Standard Deviations > >"
  • Line Location: DIS+50
Function Call: WRITE
  • Prompt: ?44,$J($FN($$SQROOT(S1TDEVT/(CNT-1)),"",1),3),?49,$J($FN($$SQROOT(S2TDEVT/(CNT-1)),"",1),3),?55,$J($FN($$SQROOT(S3TDEVT/(CNT-1)),"",1),3),?63,$J($FN($$SQROOT(S4TDEVT/(CNT-1)),"",1),3)
  • Line Location: DIS+52
Function Call: WRITE
  • Prompt: ?72,$J($FN($$SQROOT(S5TDEVT/(CNT-1)),"",1),4)
  • Line Location: DIS+53
Info |  Source |  Entry Points |  Interaction Calls