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

Package: Hospital Based Home Care

Routine: HBHCRP3


Information

HBHCRP3 ; LR VAMC(IRMS)/MJT-HBHC report on file 632, individual patient visit data by date range, includes all fields, calls DX^HBHCUTL3, DX80^HBHCUTL3, CPT^HBHCUTL3 ; Jan 2000

Source Information

Source file <HBHCRP3.m>

Entry Points

Name Comments DBIA/ICR reference
PROMPT ; Prompt user for patient name
DQ ; De-queue
LOOP ; Loop thru ^HBHC(632) "B" cross-ref to build report
EXIT ; Exit module
PROCESS ; Process record
WRITE ; Write record info
CPT80 ; Print CPT info in 80 column format
HDRCONT ; Print header info when record continued to new page

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"This patient has no visits on file.",!!
  • Line Location: PROMPT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: !,"Visit Date: ",$S($P(HBHCNOD0,U,2)]"":$E($P(HBHCNOD0,U,2),4,5)_"-"_$E($P(HBHCNOD0,U,2),6,7)_"-"_(1700+$E($P(HBHCNOD0,U,2),1,3)),1:""),?27,"Prov No.: ",$P(^HBHC(631.4,$P(HBHCNOD0,U,4),0),U),?45,"Prov Name: ",HBHCPRV
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: !," Modifier: - ",HBHCCPTA(HBHCI,HBHCJ)
  • Line Location: CPT80+1
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: CPT80+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRCONT+1
Function Call: WRITE
  • Prompt: !,HBHCMSG,!
  • Line Location: HDRCONT+1

FileMan Files Accessed Via FileMan Db Call

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