Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Hospital Based Home Care 3 (HDRRANGE,START,TODAY)^HBHCUTL  ENDRPT^HBHCUTL1  CPT^HBHCUTL3  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 DD^%DT  C^%DTC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Hospital Based Home Care 1 HBHCRP21  

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

External References

Name Field # of Occurrence
DD^%DT PRINT+7, PRINT+8
C^%DTC LOOP+1
^%ZIS PROMPT+9
^%ZISC EXIT+1
^%ZTLOAD PROMPT+10
^DIR PROMPT+1, PROMPT+5
HDRRANGE^HBHCUTL LOOP+3, LOOP+4, PRINT+4
START^HBHCUTL HBHCRP21+2
TODAY^HBHCUTL LOOP+3
ENDRPT^HBHCUTL1 LOOP+7
CPT^HBHCUTL3 PROCESS+2

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
Routine Call
  • DIR
  • Line Location:
    • PROMPT+1
    • PROMPT+5
Routine Call
  • %ZIS
  • Line Location:
    • PROMPT+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PROCESS+7
^HBHC(631 - [#631] PROCESS+9
^HBHC(632 - [#632] LOOP+2
^TMP("HBHC" DQ+7!, LOOP+5, LOOP+6, EXIT+3!, PROCESS+13*, PROCESS+14*, SORT+1, SORTLOOP+1, SET+1, SET+2*
, SET+3!, PRTLOOP+1, PRTLOOP2+1, PRTLOOP3+1, APRTLOOP+1, APRTLP2+1, PRINT+2, PRINT+3

Label References

Name Line Occurrences
APRTLOOP LOOP+6
APRTLP2 APRTLOOP+1
EXIT HBHCRP21+3, PROMPT+2, PROMPT+6, PROMPT+9, PROMPT+10
OMIT HBHCRP21+4, LOOP+6
PRINT PRTLOOP3+1, APRTLP2+1
PROCESS LOOP+2
PROMPT PROMPT+2
PRTLOOP LOOP+6
PRTLOOP2 PRTLOOP+1
PRTLOOP3 PRTLOOP2+1
SET SORTLOOP+1
SORT LOOP+6
SORTLOOP SORT+1
SUMMARY LOOP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS PROMPT+9*
DIR PROMPT+1!, PROMPT+5!, EXIT+2!
DIR("?" PROMPT+1*, PROMPT+5*
DIR("A" PROMPT+1*, PROMPT+5*
DIR("B" PROMPT+5*
DIR(0 PROMPT+1*, PROMPT+5*
>> DIRUT PROMPT+6
>> DTOUT PROMPT+2
>> DUOUT PROMPT+2
HBHC EXIT+2!
HBHC( PRTLOOP+1*, SUMMARY+2
HBHCADDT EXIT+2!, PROCESS+8*, PROCESS+9*, PROCESS+11*, PROCESS+13, PROCESS+14, SORTLOOP+1*, SET+1, SET+2, SET+3
, PRTLOOP3+1*, APRTLP2+1*, PRINT+2, PRINT+3, PRINT+7
HBHCAPDT LOOP+1*, LOOP+2*, EXIT+2!
HBHCBEG1 HBHCRP21+3, LOOP+1, EXIT+2!
HBHCBEG2 EXIT+2!
HBHCCC PROMPT+9*, LOOP+4*, EXIT+2!, PRINT+4
HBHCCNT DQ+8*, LOOP+6, EXIT+2!, PRINT+1*, SUMMARY+3
HBHCCNT1 DQ+8*, EXIT+2!, PRTLOOP+1*, PRINT+2*
HBHCCOLM DQ+10*, EXIT+2!
HBHCCPT EXIT+2!, PROCESS+5*
HBHCCPTA EXIT+2!, PROCESS+2
HBHCCPTA( PROCESS+5
HBHCCPTL EXIT+2!
HBHCCPTL( PROMPT+2*, PROCESS+5
HBHCCPTL(98966 DQ+3*
HBHCCPTL(98967 DQ+3*
HBHCCPTL(98968 DQ+3*
HBHCCPTL(99358 DQ+3*
HBHCCPTL(99359 DQ+3*
HBHCCPTL(99361 DQ+5*
HBHCCPTL(99362 DQ+5*
HBHCCPTL(99367 DQ+3*
HBHCCPTL(99368 DQ+3*
HBHCCPTL(99371 DQ+5*
HBHCCPTL(99372 DQ+5*
HBHCCPTL(99373 DQ+5*
HBHCCPTL(99374 DQ+3*
HBHCCPTL(99375 DQ+3*
HBHCCPTL(99376 DQ+5*
HBHCCPTL(99441 DQ+3*
HBHCCPTL(99442 DQ+3*
HBHCCPTL(99443 DQ+3*
HBHCDFN LOOP+2*, EXIT+2!
HBHCDPT0 EXIT+2!, PROCESS+7*
HBHCDSDT EXIT+2!, PROCESS+8*, PROCESS+9*, PROCESS+12*, PROCESS+13, PROCESS+14, SORTLOOP+1*, SET+1, SET+2, SET+3
, PRTLOOP3+1*, APRTLP2+1*, PRINT+2, PRINT+3, PRINT+8
HBHCEND1 HBHCRP21+3, LOOP+2, EXIT+2!
HBHCEND2 EXIT+2!
HBHCFLAG EXIT+2!, PROCESS+4!, PROCESS+5*, PROCESS+6
HBHCFLG PROMPT+8*, PROMPT+10, DQ+9, LOOP+6, EXIT+2!, PRINT+2, PRINT+3
HBHCHDR DQ+10*, EXIT+2!
HBHCHEAD DQ+9*, DQ+10, EXIT+2!
HBHCI EXIT+2!, PROCESS+5*
HBHCIEN EXIT+2!, PROCESS+9*
HBHCINFO EXIT+2!, PROCESS+9*, PRINT+2*, PRINT+3*, PRINT+5, PRINT+6
HBHCLST4 EXIT+3!, PROCESS+7*, PROCESS+13, PROCESS+14, SORT+1*, SORTLOOP+1, SET+1, SET+2, SET+3, PRTLOOP2+1*
, PRTLOOP3+1, APRTLOOP+1*, APRTLP2+1, PRINT+2, PRINT+3, PRINT+6
HBHCNAME EXIT+2!, PROCESS+7*, PROCESS+13, PROCESS+14, SORT+1*, SORTLOOP+1, SET+1, SET+2, SET+3, PRTLOOP2+1*
, PRTLOOP3+1, APRTLOOP+1*, APRTLP2+1, PRINT+2, PRINT+3, PRINT+6
HBHCNBR EXIT+2!, SET+1*, SET+2, PRTLOOP+1*, PRTLOOP2+1, PRTLOOP3+1, PRINT+2, SUMMARY+2*
HBHCNOD0 LOOP+2*, EXIT+2!, PROCESS+7, PROCESS+9
HBHCPAGE EXIT+3!
HBHCTDY EXIT+3!
HBHCTOT DQ+8*, LOOP+6, EXIT+3!, PRINT+5*, SUMMARY+3
HBHCY DQ+8*, LOOP+6, EXIT+3!, PRTLOOP+1, PRINT+9
HBHCZ DQ+8*, EXIT+3!, SUMMARY+1
IO DQ+6, LOOP+3, LOOP+4
IO("Q" PROMPT+10
IO("S" LOOP+3, LOOP+4
IO(0 LOOP+3, LOOP+4
IOF PRINT+4, SUMMARY+1
IOP PROMPT+9!
IOSL PRINT+4
>> POP PROMPT+9
U LOOP+2, PROCESS+7, PROCESS+9, PRINT+5, PRINT+6
X PROMPT+2, PROMPT+8, LOOP+1, EXIT+3!
X1 LOOP+1*, EXIT+3!
X2 LOOP+1*, EXIT+3!
Y EXIT+3!, PRINT+7*, PRINT+8*
>> ZTDESC PROMPT+10*
ZTIO PROMPT+9!
>> ZTRTN PROMPT+10*, PRINT+4
ZTSAVE PROMPT+9!
ZTSAVE("HBHC*" PROMPT+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All