Routine: AZXAPTR

Information

AZXAPTR ; IHS/PHXAO/TMJ - PT RECORD ;

Source file <AZXAPTR.m>

Name	Comments	DBIA/ICR reference
GETDIS	;Get this Patient's Disclosure Records
HEADER	;Print the Header for Display
EOJ	;End of Job
GETPAT	;Get Patient Name
START	;Get Patient
PRINT	;Print the Disclosure Records

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No PATIENT Selected!" Line Location: START+3
Function Call: WRITE	Prompt: ?5,AZXACT_")",?12,AZXADN,?23,AZXADTP,?37,AZXAPTYP,?62,AZXATYP,?73,AZXAST,! Line Location: GETDIS+14
Function Call: WRITE	Prompt: !,?5,"NO DISCLOSURE RECORDS TO PRINT FOR THIS PATIENT",! Line Location: GETDIS+15
Function Call: WRITE	Prompt: !!,?5,"CUMMULATIVE DISCLOSURE RECORDS FOR: "_$P($G(^DPT(AZXAPAT,0)),U),! Line Location: HEADER+1
Function Call: WRITE	Prompt: ?5,"DISPLAY DATE: "_$$FMTE^XLFDT(DT,"1P") Line Location: HEADER+2
Function Call: WRITE	Prompt: !!,?3,"Number",?12,"DISC #",?23,"DT REC'D",?37,"REQUESTING PARTY",?60,"TYPE",?70,"STATUS",! Line Location: HEADER+4
Function Call: WRITE	Prompt: ?3,"____________________________________________________________________________",! Line Location: HEADER+5
Routine Call	DIC Line Location: GETPAT+1

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AZXAREC(	GETDIS+7, GETDIS+8, GETDIS+10, GETDIS+12, GETDIS+13
^AZXAREC("E"	GETDIS+5
^AZXAREQ	GETDIS+11
^DPT - [#2]	HEADER+1

Name	Field # of Occurrence
%	EOJ+1!
%DT	EOJ+1!
%X	EOJ+1!
%Y	EOJ+1!
AZXACT	GETDIS+3, GETDIS+6, GETDIS+14, GETDIS+15, EOJ+2!
AZXADIS	EOJ+2!
AZXADN	GETDIS+7*, GETDIS+14, EOJ+2!
AZXADT	GETDIS+8*, GETDIS+9, EOJ+2!
AZXADTP	GETDIS+9*, GETDIS+14, EOJ+2!
AZXAIEN	GETDIS+5*, GETDIS+7, GETDIS+8, GETDIS+10, GETDIS+12, GETDIS+13, EOJ+2!
AZXAPAT	START+1, START+3, GETPAT+3, GETDIS+2, GETDIS+5, HEADER+1, EOJ+2!
AZXAPTY	GETDIS+10*, GETDIS+11, EOJ+2!
AZXAPTYP	GETDIS+11*, GETDIS+14, EOJ+2!
AZXAST	GETDIS+13*, GETDIS+14, EOJ+2!
AZXATYP	GETDIS+12*, GETDIS+14, EOJ+2!
DIC	GETPAT+1*!
DIC(0	GETPAT+1*
DT	HEADER+2
U	GETDIS+7, GETDIS+8, GETDIS+10, GETDIS+11, GETDIS+12, GETDIS+13, HEADER+1
>> Y	GETPAT+2, GETPAT+3