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

Package: Clinical Reminders

Routine: PXRMGECR


Information

PXRMGECR ;SLC/JVS GEC-Reports ;7/14/05 10:44

Source Information

Source file <PXRMGECR.m>

Entry Points

Name Comments DBIA/ICR reference
LOC ;Referrals by Location
DR ;Referrals by Date Range
HS1 ;By Patient
HFCD ;Health Factor Category Detailed
LOCCNT ;Count Locations of Referrals
HFNAME(DA,NAME) ;Decide to split name into columns
PB ;PAGE BREAK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOC+5
Function Call: WRITE
  • Prompt: "=============================================================================="
  • Line Location: LOC+6
Function Call: WRITE
  • Prompt: !,"Complete GEC Referrals by Location"
  • Line Location: LOC+7
Function Call: WRITE
  • Prompt: !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  • Line Location: LOC+8
Function Call: WRITE
  • Prompt: !,"Location"
  • Line Location: LOC+9
Function Call: WRITE
  • Prompt: !,?5,"Patient",?50,"Finish Date"
  • Line Location: LOC+10
Function Call: WRITE
  • Prompt: !,"Location^Location Count^Patient^SSN^Finish Date"
  • Line Location: LOC+11
Function Call: WRITE
  • Prompt: !,"=============================================================================="
  • Line Location: LOC+12
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+13
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+16
Function Call: WRITE
  • Prompt: !,IOUON,LOCN,IOUOFF,?30,"Total # Patients Evaluated= ",$G(^TMP("PXRMGEC",$J,"REFLOCC",LOCN))
  • Line Location: LOC+17
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+18
Function Call: WRITE
  • Prompt: !,?5,DFNXX,?50,"Incomplete"
  • Line Location: LOC+21
Function Call: WRITE
  • Prompt: !,?5,$P(DFNXX," ",1,$L(DFNXX," ")-1)," ("_$P(DFNXX," ",$L(DFNXX," "))_")",?50,$P($$FMTE^XLFDT(VDT,"5ZM"),"@",1)
  • Line Location: LOC+22
Function Call: WRITE
  • Prompt: !,LOCN,"^",$G(^TMP("PXRMGEC",$J,"REFLOCC",LOCN)),"^",$P(DFNXX," ",1,$L(DFNXX," ")-1),"^",$P(DFNXX," ",$L(DFNXX," ")),"^",$P($$FMTE^XLFDT(VDT,"5ZM"),"@",1)
  • Line Location: LOC+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DR+5
Function Call: WRITE
  • Prompt: "=============================================================================="
  • Line Location: DR+6
Function Call: WRITE
  • Prompt: !,"Complete and/or Incomplete GEC Referrals by Date Range"
  • Line Location: DR+7
Function Call: WRITE
  • Prompt: !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  • Line Location: DR+8
Function Call: WRITE
  • Prompt: !,$S(INC=0:"Incomplete",INC=1:"Complete",INC=2:"Complete and Incomplete",1:"")_" Referrals"
  • Line Location: DR+9
Function Call: WRITE
  • Prompt: !,"Patient"
  • Line Location: DR+10
Function Call: WRITE
  • Prompt: !,?5,"Start Date",?20,"Finished",?35,"Elapsed Time"
  • Line Location: DR+11
Function Call: WRITE
  • Prompt: !,?5,"Start Date",?20,"Finished",?35,"Elapsed Time",?50,"Incomplete Status"
  • Line Location: DR+12
Function Call: WRITE
  • Prompt: !,"Patient^SS#^Count^Start Date^Finished Date^Elapsed Time"
  • Line Location: DR+13
Function Call: WRITE
  • Prompt: !,"=============================================================================="
  • Line Location: DR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DR+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DR+17
Function Call: WRITE
  • Prompt: !,IOUON,$P(DFN," ",1,$L(DFN," ")-1)," ("_$P(DFN," ",$L(DFN," "))_")"," ",IOUOFF
  • Line Location: DR+18
Function Call: WRITE
  • Prompt: ?44,$G(^TMP("PXRMGEC",$J,"REFDFNN",$P(DFN," ",1,($L(DFN," ")-1))))," Referral(s)"
  • Line Location: DR+19
Function Call: WRITE
  • Prompt: !
  • Line Location: DR+20
Function Call: WRITE
  • Prompt: !,?5,$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1),?20,"",?35,$S(DIFF="":DIF_" Days",DIFF>0:DIFF_" Days",1:""),?50,$S(DIFF="":"Incomplete",1:"")
  • Line Location: DR+26
Function Call: WRITE
  • Prompt: !,?5,$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1),?20,$P($$FMTE^XLFDT(VDT,"5ZM"),"@",1),?35,$S(DIFF="":DIF_" Days",DIFF>0:DIFF_" Days",1:""),?50,$S(DIFF="":"Incomplete",1:"")
  • Line Location: DR+27
Function Call: WRITE
  • Prompt: !,$P(DFN," ",1,$L(DFN," ")-1),"^",$P(DFN," ",$L(DFN," ")),"^"
  • Line Location: DR+29
Function Call: WRITE
  • Prompt: $G(^TMP("PXRMGEC",$J,"REFDFNN",$P(DFN," ",1,$L(DFN," ")-1))),"^",$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1),"^",$P($$FMTE^XLFDT(VDT,"5ZM"),"@",1),"^",$S(DIFF="":DIF,DIFF>0:DIFF,1:"")
  • Line Location: DR+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HS1+5
Function Call: WRITE
  • Prompt: "=============================================================================="
  • Line Location: HS1+6
Function Call: WRITE
  • Prompt: !,"GEC Patient"
  • Line Location: HS1+7
Function Call: WRITE
  • Prompt: !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  • Line Location: HS1+8
Function Call: WRITE
  • Prompt: !,"Patient"
  • Line Location: HS1+9
Function Call: WRITE
  • Prompt: !," Category"
  • Line Location: HS1+10
Function Call: WRITE
  • Prompt: !," Health Factor",?44,"Value",?55,"Date of Evaluation"
  • Line Location: HS1+11
Function Call: WRITE
  • Prompt: !,"Patient^Category^Health Factor^Value^Date of Evaluation"
  • Line Location: HS1+12
Function Call: WRITE
  • Prompt: !,"=============================================================================="
  • Line Location: HS1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HS1+18
Function Call: WRITE
  • Prompt: !,CNT,") ",STATUS,", DIVISION:",DIV
  • Line Location: HS1+25
Function Call: WRITE
  • Prompt: !,CNT,") ",STATUS
  • Line Location: HS1+26
Function Call: WRITE
  • Prompt: !,CNT,") ",IOUON,$P(DFN," ",1,$L(DFN," ")-1)," (",$P(DFN," ",$L(DFN," "))_")",IOUOFF,?48,"Total # Complete referrals: ",$G(^TMP("PXRMGEC",$J,"REFDFNN",$P(DFN," ",1,$L(DFN," ")-1)))
  • Line Location: HS1+27
Function Call: WRITE
  • Prompt: !
  • Line Location: HS1+29
Function Call: WRITE
  • Prompt: !,IOUON,"Referral #"_REFNUM,IOUOFF
  • Line Location: HS1+31
Function Call: WRITE
  • Prompt: !,?1,$P(CAT," ",3,6)
  • Line Location: HS1+35
Function Call: WRITE
  • Prompt: !,?4,$P(HFN,"^",1),?44,$P(HFN,"^",2),?55,$P($$FMTE^XLFDT(DATEV,"5ZM"),"@",1)
  • Line Location: HS1+39
Function Call: WRITE
  • Prompt: !,$P(DFN," ",1,$L(DFN," ")-1)_"^"_$P(DFN," ",$L(DFN," ")),"^",$P(CAT," ",3,6),"^",$P(HFN,"^",1),"^",$P(HFN,"^",2),"^",$P($$FMTE^XLFDT(DATEV,"5ZM"),"@",1),"^",REFNUM
  • Line Location: HS1+43
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HFCD+6
Function Call: WRITE
  • Prompt: "=============================================================================="
  • Line Location: HFCD+7
Function Call: WRITE
  • Prompt: !,"GEC Health Factor Category Detailed Report"
  • Line Location: HFCD+8
Function Call: WRITE
  • Prompt: !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  • Line Location: HFCD+9
Function Call: WRITE
  • Prompt: !,"Complete and Incomplete Referrals"
  • Line Location: HFCD+10
Function Call: WRITE
  • Prompt: !,"Category"
  • Line Location: HFCD+11
Function Call: WRITE
  • Prompt: !,?2,"Patient Name"
  • Line Location: HFCD+12
Function Call: WRITE
  • Prompt: !,?4,"Health Factors",?45,$S($D(RPT7):"",1:"Value"),?52,"Date"
  • Line Location: HFCD+13
Function Call: WRITE
  • Prompt: !,"Category^Patient^SSN^Health Factor^"_$S($D(RPT7):"Date",1:"Value^Date")
  • Line Location: HFCD+14
Function Call: WRITE
  • Prompt: !,"=============================================================================="
  • Line Location: HFCD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HFCD+19
Function Call: WRITE
  • Prompt: !,IOUON,$P(CAT," ",3,6),IOUOFF
  • Line Location: HFCD+20
Function Call: WRITE
  • Prompt: !
  • Line Location: HFCD+24
Function Call: WRITE
  • Prompt: !,?2,$P($G(^DPT(DFN,0)),"^",1)_" ("_$P($G(^DPT(DFN,0)),"^",9)_")"
  • Line Location: HFCD+25
Function Call: WRITE
  • Prompt: !
  • Line Location: HFCD+25
Function Call: WRITE
  • Prompt: !,?4,$P(HFN,"^",1),?45,$S($D(RPT7):"",1:$P(HFN,"^",2)),?52,$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1)
  • Line Location: HFCD+28
Function Call: WRITE
  • Prompt: !,$P(CAT," ",3,5),"^",$P($G(^DPT(DFN,0)),"^",1)_"^"_$P($G(^DPT(DFN,0)),"^",9),"^",$P(HFN,"^",1),$S($D(RPT7):"",1:"^"_$P(HFN,"^",2)),"^",$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1)
  • Line Location: HFCD+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PB+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call