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

Package: Integrated Billing

Routine: IBAHVE3


Information

IBAHVE3 ;WOIFO/SS - CV EXPIRATION REPORT ;06/16/04

Source Information

Source file <IBAHVE3.m>

Entry Points

Name Comments DBIA/ICR reference
START ;start report
REPORT ;
END ;
EXIT ; kills all vars
OPEN ;
QUEUED ;
PREPRPT ;prepare data
; IBBEGDT - begin date ,IBENDDT - end date
SETTMP(IBDFN,IBADMDT,IBWARD,IBCVDT) ;additional check and set ^TMP
PRINTRPT ;print the report
HEADER ;print the header
PRNTLINE(IBRECORD) ;print line of the report
CHNGDATE(DATE,CHNG) ;
PRNINFO(IBBEG,IBEND) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled")
  • Line Location: QUEUED+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?8,"***Inpatient Combat Veteran Status Expiration Report***",?IBCOLPG,"PAGE ",IBPAGE
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,?14,"Report from "
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,?15,"Run Date/Time: "
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !!,"Patient NAME",?IBCOL2,"SSN",?IBCOL3,"CV exp. date",?IBCOL4,"Date of admission"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: IBX,!
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: $E($P(IBRECORD,"^",1),1,21)
  • Line Location: PRNTLINE+2
Function Call: WRITE
  • Prompt: ?IBCOL2,$E($P(IBRECORD,"^",2),1,11)
  • Line Location: PRNTLINE+4
Function Call: WRITE
  • Prompt: ?IBCOL3,$E($P(IBRECORD,"^",3),1,14)
  • Line Location: PRNTLINE+6
Function Call: WRITE
  • Prompt: ?IBCOL4,$E($P(IBRECORD,"^",4),1,14)
  • Line Location: PRNTLINE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTLINE+9
Function Call: WRITE
  • Prompt: !,"The following patients whose records indicate that they had CV status, were"
  • Line Location: PRNINFO+2
Function Call: WRITE
  • Prompt: !,"admitted for inpatient care with CV status, and their CV status has expired"
  • Line Location: PRNINFO+3
Function Call: WRITE
  • Prompt: !,"during their stays in the period of "
  • Line Location: PRNINFO+4
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: PRNINFO+6
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRNINFO+8
Info |  Source |  Entry Points |  Interaction Calls