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

Package: Clinical Reminders

Routine: PXRMGECQ


Information

PXRMGECQ ;SLC/JVS GEC-QUEUE'D Reports ;7/14/05 10:44

Source Information

Source file <PXRMGECQ.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOC+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: LOC+7
Function Call: WRITE
  • Prompt: !,"Complete GEC Referrals by Location"
  • Line Location: LOC+9
Function Call: WRITE
  • Prompt: !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  • Line Location: LOC+10
Function Call: WRITE
  • Prompt: !,"Location"
  • Line Location: LOC+11
Function Call: WRITE
  • Prompt: !,?5,"Patient",?50,"Finish Date",!
  • Line Location: LOC+12
Function Call: WRITE
  • Prompt: !,"Location^Location Count^Patient^SSN^Finish Date",!
  • Line Location: LOC+13
Function Call: WRITE
  • Prompt: "="
  • Line Location: LOC+14
Function Call: WRITE
  • Prompt: !,LOCN,?30,"Total # Patients Evaluated= ",$G(^TMP("PXRMGEC",$J,"LOCBB",LOCN))
  • Line Location: LOC+19
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+20
Function Call: WRITE
  • Prompt: !,?5,DFNXX,?50,"Incomplete"
  • Line Location: LOC+23
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+24
Function Call: WRITE
  • Prompt: !,LOCN,"^",$G(^TMP("PXRMGEC",$J,"LOCBB",LOCN)),"^",$P(DFNXX," ",1,$L(DFNXX," ")-1),"^",$P(DFNXX," ",$L(DFNXX," ")),"^",$P($$FMTE^XLFDT(VDT,"5ZM"),"@",1)
  • Line Location: LOC+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: DR+6
Function Call: WRITE
  • Prompt: !,"Complete GEC Referrals by Date Range"
  • Line Location: DR+8
Function Call: WRITE
  • Prompt: !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  • Line Location: DR+9
Function Call: WRITE
  • Prompt: !,$S(INC=0:"Incomplete",INC=1:"Complete",INC=2:"Complete and Incomplete",1:"")_" Referrals"
  • Line Location: DR+10
Function Call: WRITE
  • Prompt: !,"Patient"
  • Line Location: DR+11
Function Call: WRITE
  • Prompt: !,?5,"Start Date",?20,"",?35,"Elapsed Time"
  • Line Location: DR+12
Function Call: WRITE
  • Prompt: !,?5,"Start Date",?20,"Finished",?35,"Elapsed Time",?50,"Incomplete Status",!
  • Line Location: DR+13
Function Call: WRITE
  • Prompt: !,"Patient^SSN^Count^Start Date^Finished Date^Status",!
  • Line Location: DR+14
Function Call: WRITE
  • Prompt: "="
  • Line Location: DR+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DR+19
Function Call: WRITE
  • Prompt: !,$P(DFN," ",1,$L(DFN," ")-1)," ("_$P(DFN," ",$L(DFN," "))_")",?31,"Total= ",$G(^TMP("PXRMGEC",$J,"REFDFNN",$P(DFN," ")))
  • Line Location: DR+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DR+21
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+27
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+28
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," "))),"^",$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: !
  • Line Location: HS1+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HS1+6
Function Call: WRITE
  • Prompt: !,"GEC Patient"
  • Line Location: HS1+8
Function Call: WRITE
  • Prompt: !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  • Line Location: HS1+9
Function Call: WRITE
  • Prompt: !,"Patient"
  • Line Location: HS1+10
Function Call: WRITE
  • Prompt: !," Category"
  • Line Location: HS1+11
Function Call: WRITE
  • Prompt: !," Health Factor",?44,"Value",?55,"Date of Evaluation",!
  • Line Location: HS1+12
Function Call: WRITE
  • Prompt: !,"Patient^SSN^Eval Count^Category^Health Factor^Value^Date of Evaluation",!
  • Line Location: HS1+13
Function Call: WRITE
  • Prompt: "="
  • Line Location: HS1+14
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,") ",$P(DFN," ",1,$L(DFN," ")-1)," (",$P(DFN," ",$L(DFN," "))_")",?50,"Total Number of referrals: ",$G(^TMP("PXRMGEC",$J,"REFDFNN",$P(DFN," ")))
  • Line Location: HS1+27
Function Call: WRITE
  • Prompt: !
  • Line Location: HS1+29
Function Call: WRITE
  • Prompt: !,"Next Referral"
  • Line Location: HS1+30
Function Call: WRITE
  • Prompt: !,?1,$P(CAT," ",3,6)
  • Line Location: HS1+34
Function Call: WRITE
  • Prompt: !,?4,$P(HFN,"^",1),?44,$P(HFN,"^",2),?55,$P($$FMTE^XLFDT(DATEV,"5ZM"),"@",1)
  • Line Location: HS1+38
Function Call: WRITE
  • Prompt: !,$P(DFN," ",1,$L(DFN," ")-1),"^",$P(DFN," ",$L(DFN," "))
  • Line Location: HS1+41
Function Call: WRITE
  • Prompt: "^",$G(^TMP("PXRMGEC",$J,"REFDFNN",$P(DFN," "))),"^",$P(CAT," ",3,6),"^",$P(HFN,"^",1),"^",$P(HFN,"^",2),"^",$P($$FMTE^XLFDT(DATEV,"5ZM"),"@",1)
  • Line Location: HS1+42
Function Call: WRITE
  • Prompt: !
  • Line Location: HFCD+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HFCD+6
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: !,"Category"
  • Line Location: HFCD+10
Function Call: WRITE
  • Prompt: !,?2,"Patient Name"
  • Line Location: HFCD+11
Function Call: WRITE
  • Prompt: !,?4,"Health Factors",?41,"Value",?47,"Date",!
  • Line Location: HFCD+12
Function Call: WRITE
  • Prompt: !,"Category^Patient^SSN^Health Factor^Value^Date",!
  • Line Location: HFCD+13
Function Call: WRITE
  • Prompt: "="
  • Line Location: HFCD+14
Function Call: WRITE
  • Prompt: !,$P(CAT," ",3,6)
  • Line Location: HFCD+19
Function Call: WRITE
  • Prompt: !
  • Line Location: HFCD+23
Function Call: WRITE
  • Prompt: !,?2,$P($G(^DPT(DFN,0)),"^",1)_" ("_$P($G(^DPT(DFN,0)),"^",9)_")"
  • Line Location: HFCD+24
Function Call: WRITE
  • Prompt: !
  • Line Location: HFCD+24
Function Call: WRITE
  • Prompt: !,?4,$P(HFN,"^",1),?41,$P(HFN,"^",2),?47,$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1)
  • Line Location: HFCD+27
Function Call: WRITE
  • Prompt: !,$P(CAT," ",3,5),"^",$P($G(^DPT(DFN,0)),"^",1)_"^"_$P($G(^DPT(DFN,0)),"^",9),"^",$P(HFN,"^",1),"^",$P(HFN,"^",2),"^",$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1)
  • Line Location: HFCD+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DFN2+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: DFN2+6
Function Call: WRITE
  • Prompt: !,"GEC Provider"
  • Line Location: DFN2+8
Function Call: WRITE
  • Prompt: !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  • Line Location: DFN2+9
Function Call: WRITE
  • Prompt: !,"Report Displays Counts of Complete Referrals Only"
  • Line Location: DFN2+10
Function Call: WRITE
  • Prompt: !,"Provider"
  • Line Location: DFN2+11
Function Call: WRITE
  • Prompt: !," Patient",?17,"Completion Date",?41,"Dialog",!
  • Line Location: DFN2+12
Function Call: WRITE
  • Prompt: !,"Provider^IEN^Patient^SSN^Dialog^Completion Date",!
  • Line Location: DFN2+13
Function Call: WRITE
  • Prompt: "="
  • Line Location: DFN2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DFN2+25
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(200,DOCT,.01),"^",DOCT,"^",$P($G(^DPT(DFN,0)),"^",1),"^",$P($G(^DPT(DFN,0)),"^",9)
  • Line Location: DFN2+29
Function Call: WRITE
  • Prompt: "^",$P($P($G(^PXRMD(801.41,DIADA,0)),"^",1)," ",3,6),"^",$P($$FMTE^XLFDT(DATEV,"5ZM"),"@",1)
  • Line Location: DFN2+30

FileMan Files Accessed Via FileMan Db Call

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