Routine: APCHS

Information

APCHS ; IHS/CMI/LAB - PCC HEALTH SUMMARY ;

Source file <APCHS.m>

Package	Total	Caller Graph
Patient Care Component	5	APCDEHS1 APCHS1 APCHS1B APCHSBRW APCHSM
IHS Changes To Scheduling	3	ASDFORM BSDFORM BSDHSP
Registration	3	DPTDZFCH DPTDZPO1 DPTDZPRE
Diabetes Registry	2	BDMDMAS BDMVRL
M Transfer	2	BMXRPC1 BMXRPC5
PCC New Encounter Form	2	VENPCC2 VENPCC2A
Case Management System	1	ACMPPDTX
Emergency Room	1	AMER
PCC Medical Query	1	AMQQRMH
Patient Care Component Reports	1	APCLDMAS
Third Party Billing	1	ABMDECK
iCare	1	BQIRHS

Name	Comments	DBIA/ICR reference
ENREG	;EP - entry point to display CMS register(s) patient is on, then ; ask for summary type
EN	;PEP - PUBLISHED ENTRY POINT - PRINT SUMMARY FOR PATIENT
END	;
GETPT
HEADER	;ENTRY POINT
DSPCMSRG	; EP - display membership in CMS register
HSOUT	; OUTPUT SUMMARY, WITH DEVICE CONTROL
NOQUE
BREAK	;ENTRY POINT
SELTYP
DONE
VERSION	;;2.0
QUE
EOJ	;PEP - end of job clean up can be called by other applications that call the Health Summary
EN1	;PEP ;IHS/CMI/LAB - added per G. Shorr
SELPT	;PEP-select patients
GETTYP	; EP - get health summary TYPE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* * * H E A L T H S U M M A R Y P R O G R A M (",$P($T(VERSION),";",3),") * * *",!! Line Location: VERSION+2
Function Call: WRITE	Prompt: ! Line Location: SELTYP+5
Function Call: WRITE	Prompt: !!,"* * * H E A L T H S U M M A R Y P R O G R A M (",$P($T(VERSION),";",3),") * * *",!! Line Location: ENREG+2
Function Call: WRITE	Prompt: ?21,$P(^ACM(41.1,APCHSI,0),U) Line Location: DSPCMSRG+4
Function Call: WRITE	Prompt: " Status: ",$$VAL^XBDIQ1(9002241,APCHSK,1),! Line Location: DSPCMSRG+5
Routine Call	%ZIS Line Location: QUE+3
Routine Call	DIC Line Location: SELTYP+5 SELPT+1 GETPT GETTYP+6
Routine Call	%ZIS Line Location: HSOUT+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	VERSION+3, NOQUE, ENREG+3
^ACM(41 - [#9002241]	DSPCMSRG+1, DSPCMSRG+3, DSPCMSRG+5
^ACM(41.1 - [#9002241.1]	DSPCMSRG+3, DSPCMSRG+4
^APCCCTRL - [#9001000]	SELTYP+1, GETTYP+2
^APCHSCTL - [#9001015]	SELTYP+2, GETTYP+3
^AUPNPAT - [#9000001]	SELPT+1, GETPT
^DISV(	SELTYP+2, GETTYP+3
^DISV($I	VERSION+3, NOQUE, ENREG+3*

Name	Field # of Occurrence
^("^APCHSCTL("	SELTYP+2, GETTYP+3
^(0	SELTYP+1, SELTYP+2, SELPT+1, GETPT, GETTYP+2, GETTYP+3

Name	Field # of Occurrence
%ZIS	HSOUT+2!*
>> APCHSBRW	GETTYP+8
>> APCHSI	DSPCMSRG+3*, DSPCMSRG+4, DSPCMSRG+5
APCHSIOF	EN1+1~, EN1+2*
>> APCHSJ	DSPCMSRG+2, DSPCMSRG+3, DSPCMSRG+4
>> APCHSK	DSPCMSRG+5*
APCHSP	QUE*, QUE+4!
APCHSPAT	SELPT+1, GETPT, DONE!, DSPCMSRG+1, DSPCMSRG+3, DSPCMSRG+5
APCHSTYP	SELTYP+5, DONE!, GETTYP+6
AUPNDOB	DONE+2!
AUPNDOD	DONE+2!
AUPNPAT	DONE+2!
AUPNSEX	DONE+2!
DA	END+4!
DIC	SELTYP!, SELTYP+5!, SELPT+1!, END+4!, GETPT!, DONE+3!, GETTYP+1!
DIC("A"	SELTYP, SELPT+1, GETPT, GETTYP+1
DIC("B"	SELTYP+4, GETTYP+5
DIC(0	SELTYP, SELPT+1, GETPT, GETTYP+1
DIR	END+1!
DIRUT	END+1!
DT	QUE+1
>> DTOUT	GETPT+1
DUOUT	END+1!, GETPT+1, GETTYP+7
DUZ	SELTYP+2, GETTYP+3
DUZ(2	SELTYP+1, SELPT+1, GETPT, GETTYP+2
IO	HSOUT+2*, NOQUE
IO("Q"	HSOUT+3
IO(0	HSOUT+2
ION	QUE+1
IOP	HSOUT+2!
POP	END+1!, HSOUT+2, DONE!
U	SELTYP+1, SELTYP+2, SELPT+1, GETPT, DSPCMSRG+3, DSPCMSRG+4, GETTYP+2, GETTYP+3
X	SELTYP+1, SELTYP+2, SELTYP+3, SELTYP+4, END+1!, DONE!, GETTYP+2, GETTYP+3, GETTYP+4, GETTYP+5
Y	SELTYP+2, SELTYP+5, SELPT+1, END+1!, GETPT, DONE!, GETTYP+3, GETTYP+6
ZTDESC	QUE+1*, QUE+4!
ZTDTH	QUE+1*, QUE+4!
ZTIO	QUE+1*, QUE+4!
ZTRTN	QUE+1*, QUE+4!
ZTSAVE	QUE!, QUE+4!
ZTSAVE(	QUE*
ZTSK	HSOUT+1!, QUE+4!