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

Package: Integrated Billing

Routine: IBOBCR6

Information

IBOBCR6 ;ALB/RJS-CONTINUOUS PATIENT PRINTOUT;2/20/92

Source Information

Source file <IBOBCR6.m>

Entry Points

Name	Comments	DBIA/ICR reference
START	;
LOOP	;
END	;
EXIT	;
QUEUED	;
BUILDARY	;
MEANS	;
LOADARY	;*IN LOADARY FUNCTION THESE ARE THE VALUES*
OUTPUT	;
LINE	;
OPEN	;
HEADING	;

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Margin width of this report is 132 columns",! Line Location: START+3
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled") Line Location: QUEUED+2
Function Call: WRITE	Prompt: $E(IBNAME,1,20),?IBCOL2 Line Location: LINE+3
Function Call: WRITE	Prompt: $E($P(IBRECORD,"^",2),1,11),?IBCOL3 Line Location: LINE+5
Function Call: WRITE	Prompt: $E($P(IBRECORD,"^",3),1,14),?IBCOL4 Line Location: LINE+7
Function Call: WRITE	Prompt: $E($P(IBRECORD,"^",6),1,8),?IBCOL5 Line Location: LINE+9
Function Call: WRITE	Prompt: $P(IBRECORD,"^",5),?IBCOL6 Line Location: LINE+11
Function Call: WRITE	Prompt: $E($P(IBRECORD,"^",4),1,30),! Line Location: LINE+13
Function Call: WRITE	Prompt: @IOF Line Location: HEADING+3
Function Call: WRITE	Prompt: !,Y,?IBCOL2,"*Patients Continuously Hospitalized Since July 1, 1986*",?IBCOL6,"PAGE ",IBPAGE Line Location: HEADING+4
Function Call: WRITE	Prompt: !!,"Patient NAME",?IBCOL2,"Pt-Id",?IBCOL3,"Ward Location",?IBCOL4 Line Location: HEADING+5
Function Call: WRITE	Prompt: "Last Means",?IBCOL5,"Means Test",?IBCOL6,"Eligibility" Line Location: HEADING+6
Function Call: WRITE	Prompt: !,?IBCOL4,"Test Date",?IBCOL5,"Status",! Line Location: HEADING+7
Function Call: WRITE	Prompt: IBX,! Line Location: HEADING+8

Info | Source | Entry Points | Interaction Calls