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

Package: Hospital Based Home Care

Routine: HBHCRP21


Information

HBHCRP21 ; LR VAMC(IRMS)/MJT-HBHC report on file 632, number of pat visits by date range, with total pats & total visits, user selectable alpha or number of visits sort, number of visits has subtotals & summary, calls CPT^HBHCUTL3 ; Apr 2000

Source Information

Source file <HBHCRP21.m>

Entry Points

Name Comments DBIA/ICR reference
PROMPT ; Prompt user for CPT code
DQ ; De-queue
; CPT codes omitted from inclusion on report
; Active
LOOP ; Loop thru ^HBHC(632) "C" (appointment date) cross-ref to build report
EXIT ; Exit module
PROCESS ; Process record & build ^TMP("HBHC",$J) global
; Quit if no CPT codes
SORT ; Sort TMP according to number of visits
SORTLOOP ; Sort loop
SET ; Set TMP in re-sorted order by number of visits, kill old TMP node
PRTLOOP ; Print loop
PRTLOOP2 ; Print loop continued
PRTLOOP3 ; Print loop continued again
APRTLOOP ; Print loop for alphabetic sort
APRTLP2 ; Print loop for alphabetic sort continued
PRINT ; Print report
SUMMARY ; Print report summary
OMIT ; Print Omitted CPT Codes listing

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+3
Function Call: WRITE
  • Prompt: !!,"Total Patients: ",$J(HBHCCNT,4),!!,"Total Visits: ",$J(HBHCTOT,6)
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,$E(HBHCNAME,1,25),?31,$E(HBHCLST4,8,11),?41,$J($P(HBHCINFO,U),3)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?50,Y
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: @IOF,HBHCZ,!?22,"****** Total Visits Summary ******",!,HBHCZ,!
  • Line Location: SUMMARY+1
Function Call: WRITE
  • Prompt: !,"Total Patients with ",$J(HBHCNBR,3)," Visit(s): ",$J(HBHC(HBHCNBR),4)
  • Line Location: SUMMARY+2
Function Call: WRITE
  • Prompt: !?34,"------",!,"Total Patients: ",?35,$J(HBHCCNT,4),!!,"Total Visits: ",?33,$J(HBHCTOT,6)
  • Line Location: SUMMARY+3
Function Call: WRITE
  • Prompt: !,"Visits containing any of the following CPT Codes are omitted from report:"
  • Line Location: OMIT+1
Function Call: WRITE
  • Prompt: !!?4,"Active",?46,"Inactive/Historical"
  • Line Location: OMIT+2
Function Call: WRITE
  • Prompt: !?2,"98966 HC PRO PHONE CALL 5-10 MIN",?44,"99361 PHYSICIAN/TEAM CONFERENCE"
  • Line Location: OMIT+3
Function Call: WRITE
  • Prompt: !?2,"98967 HC PRO PHONE CALL 11-20 MIN",?44,"99362 PHYSICIAN/TEAM CONFERENCE"
  • Line Location: OMIT+4
Function Call: WRITE
  • Prompt: !?2,"98968 HC PRO PHONE CALL 21-30 MIN",?44,"99371 PHYSICIAN PHONE CONSULTATION"
  • Line Location: OMIT+5
Function Call: WRITE
  • Prompt: !?2,"99358 PROLONGED SERV, W/O CONTACT",?44,"99372 PHYSICIAN PHONE CONSULTATION"
  • Line Location: OMIT+6
Function Call: WRITE
  • Prompt: !?2,"99359 PROLONGED SERV, W/O CONTACT",?44,"99373 PHYSICIAN PHONE CONSULTATION"
  • Line Location: OMIT+7
Function Call: WRITE
  • Prompt: !?2,"99367 TEAM CONF W/O PAT BY PHYS",?44,"99376 CARE PLAN OVERSIGHT/OVER 60"
  • Line Location: OMIT+8
Function Call: WRITE
  • Prompt: !?2,"99368 TEAM CONF W/O PAT BY HC PRO"
  • Line Location: OMIT+9
Function Call: WRITE
  • Prompt: !?2,"99374 HOME HEALTH CARE SUPERVISION"
  • Line Location: OMIT+10
Function Call: WRITE
  • Prompt: !?2,"99375 HOME HEALTH CARE SUPERVISION"
  • Line Location: OMIT+11
Function Call: WRITE
  • Prompt: !?2,"99441 PHONE E/M PHYS/QHP 5-10 MIN"
  • Line Location: OMIT+12
Function Call: WRITE
  • Prompt: !?2,"99442 PHONE E/M PHYS/QHP 11-20 MIN"
  • Line Location: OMIT+13
Function Call: WRITE
  • Prompt: !?2,"99443 PHONE E/M PHYS/QHP 21-30 MIN",!
  • Line Location: OMIT+14
Info |  Source |  Entry Points |  Interaction Calls