Routine: ACHSA1

Information

ACHSA1 ; IHS/ITSC/PMF - ENTER DOCUMENTS (2/8)-(PT,HRN,FAC,EDOS,PRO) ; [ 09/22/2004 3:53 PM ]

Package	Total	Call Graph
Contract Health Management Information System	6	($$HRN,$$PARM,PTLK,RTRN)^ACHS (A3,END)^ACHSA ^ACHSA2 ^ACHSA3 (GET,PRT)^ACHSRPIN ^ACHSVDVD
VA Fileman	3	^DIC ^DIE ^DIR
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
IHS Patient	1	^AUPNPAT
IHS VA Utilities	1	$$DIR^XBDIR

Package

Total

Call Graph

Contract Health Management Information System

($$HRN,$$PARM,PTLK,RTRN)^ACHS (A3,END)^ACHSA ^ACHSA2 ^ACHSA3 (GET,PRT)^ACHSRPIN ^ACHSVDVD

VA Fileman

^DIC ^DIE ^DIR

Kernel

$$FMTE^XLFDT $$REPEAT^XLFSTR

IHS Patient

^AUPNPAT

IHS VA Utilities

$$DIR^XBDIR

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSA ACHSA3

Package

Total

Caller Graph

Contract Health Management Information System

ACHSA ACHSA3

Entry Points

Name	Comments	DBIA/ICR reference
B0C	;
B0B	;
NOCITY	; Cancel If No City or State for patient.
PAWNEE
B51	;
B4	; Check CHS eligible.
B5	;EP - Enter Estimated DOS, 1 year either side of TODAY.
ENDC	;
B0	; Get patient name, if not Blanket or Spec. Trans.
B1	; Display/Select Facility(s) at which Patient is Registered.
B2	;
B3	;SECTION USED FOR ENTERING BLANKET DESCRIPTION
B5A	;EP - Select provider/vendor.
PAN	; If HIGH VOLUME PROVIDER, prompt for Patient Account Number, optional.

External References

Name	Field # of Occurrence
$$HRN^ACHS	B0C+4, B1+10
$$PARM^ACHS	B0C+4, B4+4, B4+17, B5A+30, NOCITY+2
PTLK^ACHS	B0B+1
RTRN^ACHS	ENDC+2, NOCITY+3
A3^ACHSA	B3+4
END^ACHSA	B0B+3, B2+4, B3+5, B51+5, B5A+15
^ACHSA2	B3+2
^ACHSA3	PAN+3
GET^ACHSRPIN	B4+12
PRT^ACHSRPIN	B4+12
^ACHSVDVD	B5A+21
^AUPNPAT	B0+7, B0B+7
^DIC	B5A+6, PAWNEE+5
^DIE	B5A+27
^DIR	B51+4
$$DIR^XBDIR	B2+2, PAN+1
$$FMTE^XLFDT	B51+3, B51+16
$$REPEAT^XLFSTR	B51+14, B51+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Patient Info: ",$E($P($G(^DPT(DFN,0)),U),U,22),?37,SEX,?39,$E(DOB,4,5),"-",$E(DOB,6,7),"-",$E(DOB,1,3)+1700,?48,SSN,?60,$G(ACHSHRN) Line Location: B0+10
Function Call: WRITE	Prompt: !!,"NO CHARTS AVAILABLE!!" Line Location: B1+9
Function Call: WRITE	Prompt: !!,"ITM #"," CHART #",?20,"FACILITY NAME",! Line Location: B1+14
Function Call: WRITE	Prompt: !,$J(ACHS,4),?11,ACHSHRN,?20,$P($G(^DIC(4,ACHSPATF,0)),U) Line Location: B1+15
Function Call: WRITE	Prompt: !!,"'",$P($G(^DD(9002080,14.08,0)),U),"' parameter = '",$$PARM^ACHS(2,8),"'.",!!,"CHS Eligibility not checked.",!,"Parameter 'CHECK FOR CHS ELIGIBILITY' not set." Line Location: B4+17
Function Call: WRITE	Prompt: *7,!!,"ELIGIBILITY INFORMATION MISSING (NODE 11 IN 'PATIENT FILE') _ Transaction Cancelled" Line Location: B4+20
Function Call: WRITE	Prompt: !!,*7,"Patient NOT ELIGIBLE for Contract Health Services",!,"Current status is: ",$S(ACHSELIG="I":"INELIGIBLE",ACHSELIG="D":"DIRECT ONLY",ACHSELIG="P":"PENDING VERIFICATION",1:"UNDEFINED") Line Location: B4+24
Function Call: WRITE	Prompt: !!,7,"**Patient is not registered as active*",!!,"*See Patient Regististration***" Line Location: B4+27
Function Call: WRITE	Prompt: !!,7,"**Patients record indicates a death date.*",!!,"*See Patient Registration.***" Line Location: B4+28
Function Call: WRITE	Prompt: !! Line Location: B51+1
Function Call: WRITE	Prompt: *7,!," Cannot be more than ONE YEAR in the future.",! Line Location: B51+9
Function Call: WRITE	Prompt: 7,!!?15,$$REPEAT^XLFSTR("",40) Line Location: B51+14
Function Call: WRITE	Prompt: !?15,"* Estimated DOS is NOT within the ",!?15," FISCAL YEAR you have selected. ",!?15," Press <RETURN> if OK. Or '^' to exit ",!?15,$$REPEAT^XLFSTR("",40) Line Location: B51+15
Function Call: WRITE	Prompt: *7," Must Have Vendor" Line Location: B5A+16
Function Call: WRITE	Prompt: !,"You must fix the missing vendor entries listed above" Line Location: B5A+18
Function Call: WRITE	Prompt: !,"Please enter 2-digit code for Vendor type.",! Line Location: B5A+27
Function Call: WRITE	Prompt: !,"Vendor is not CCR certified, please update vendor information.",! Line Location: B5A+30
Function Call: WRITE	Prompt: ! Line Location: ENDC+1
Function Call: WRITE	Prompt: @IOF Line Location: ENDC+5
Function Call: WRITE	Prompt: *7,!!,"This patient does not have a complete mailing address",!,"in the medical records files." Line Location: NOCITY+1
Function Call: WRITE	Prompt: !!,"No document may be issued until the mailing address is complete.",!!!,"'",$P($G(^DD(9002080,14.04,0)),U),"' parameter = '",$$PARM^ACHS(2,4),"'.",!! Line Location: NOCITY+2
Function Call: WRITE	Prompt: !!,*7,"PBPP Eligibility Card Expired on ",Y," -- TRANSACTION CANCELLED" Line Location: PAWNEE+12
Function Call: WRITE	Prompt: !!,*7,"PBPP Eligibility Card Expired on ",Y," -- TRANSACTION CANCELLED" Line Location: PAWNEE+13
Routine Call	DIE Line Location: B5A+27
Routine Call	DIC Line Location: B5A+6 PAWNEE+5
Routine Call	DIR Line Location: B51+4

FileNo	Call Tags
^AUTTVNDR - [#9999999.11]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	B5+6, B5+8, PAN+1
^AUPNPAT - [#9000001]	B1+4, B1+5, B1+15, B4+20, B4+23, B4+27
^AUTTLOC - [#9999999.06]	ACHSA1+12
^AUTTVNDR - [#9999999.11]	B5A+4, B5A+26, B5A+27, B5A+30
^AZOPBPP(	PAWNEE+7, PAWNEE+9
^DD("DD"	PAWNEE+9
^DD(9002080	B4+17, NOCITY+2
^DIC(4 - [#4]	B1+15
^DPT - [#2]	B0+4, B0+10, B4+4, PAWNEE+4

Label References

Name	Line Occurrences
@(	ACHSA1+12
B0	B4+20, B4+24, B4+27, B5A+14
B0B	B0+3, B0+4
B0C	B0+12
B3	B0+2, B1+9
B4	B0C+1, B0C+4, B1+10, B2+7
B5	B4+1, B4+17
B51	B51+9, B51+13
B5A	B51+7, B5A+16, B5A+23, B5A+27, B5A+30
ENDC	B4+20, B4+24, B4+27
NOCITY	B4+4
PAWNEE	ACHSA1+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHS	B1+3, B1+6, B1+9, B1+10, B1+11, B1+15, B2+2
>> ACHS(	B1+15*, B2+5, B2+6
>> ACHSACFY	B5+6, B5+8
>> ACHSAGRN	B51+7, B51+20
>> ACHSAGRP	B51+7, B51+20
>> ACHSBLKF	B0+2, B3+6, B4+1
>> ACHSBLT	B3+4
>> ACHSBPNO	PAWNEE+7*
>> ACHSCONP	B51+7, B51+20, B5A+19*
>> ACHSCTNA	B51+7, B51+20
>> ACHSDFLG	B5A+19*
>> ACHSDFN	PAWNEE+7*
>> ACHSEDOS	B51+3, B51+6*
>> ACHSELIG	B4+23*, B4+24
>> ACHSHON	B5A+19*
ACHSHRN	B0+3, B0+10, B0B+2!, B0C+1, B0C+4, B1+10, B1+15, B2+5, B3+6*, PAWNEE+8!
ACHSOKFL	B5+1!, B51+7, B51+13, B51+17*
>> ACHSPAN	PAN+1*
ACHSPATF	B0B+2!, B0C+1, B0C+4, B1+4, B1+5, B1+10, B1+15, B2+6, B3+6, B4+27 , PAWNEE+8!
>> ACHSPROV	B5A+4, B5A+19*, B5A+23, B5A+26, B5A+27, B5A+30, PAN+1
ACHSPWNE	ACHSA1+13~, ACHSA1+20, ACHSA1+21, PAWNEE+6, PAWNEE+13, PAWNEE+14
>> ACHSQUIT	B3+5
>> ACHSREF(	B0+12
>> ACHSSLOC	B0+2, B3+6, B4+1
>> ACHSTYP	NOCITY+4*
>> ACHSXXXX	B5+6, B5+8, B51+13
>> ACHSXXXZ	B5+6, B5+8, B51+13
>> ACHSZZZX	B51+6*, B51+11, B51+16
>> ACHSZZZZ	B51+11*, B51+13
>> DA	B5A+27*
DFN	B0+3, B0+4, B0+5, B0+10, B0B+4, B0B+5, B0C+4, B1+4, B1+5, B1+10 , B1+15, B4+4, B4+20, B4+23, B4+27, ENDC+4!, PAWNEE+4, PAWNEE+7*
DIC	B5A+2, B5A+8!, PAWNEE+4, PAWNEE+5!
DIC("A"	B5A+3*
DIC("B"	B5A+4, PAWNEE+4
DIC("S"	B5A+1*
DIC(0	B5A+2, PAWNEE+4
DIE	B5A+27*!
DIR	B5+1!
DIR("A"	B51+2*
DIR("B"	B51+3, B51+16
DIR(0	B51+2*
>> DOB	B0+10
>> DR	B5A+27*
DT	B51+8, B51+9, PAWNEE+13
>> DTOUT	B0B+3, B2+4, B51+5, B5A+15
>> DUOUT	B0B+4, B2+3, B3+4, B51+5, B5A+14, ENDC+3*, PAWNEE+6
DUZ(2	ACHSA1+12, B0C+4, B5+6, B5+8, PAN+1
>> E	B5A+19*
IOF	ENDC+5
>> PBEXDT	PAWNEE+9*, PAWNEE+13
>> SEX	B0+10
>> SSN	B0+10
>> TAG	ACHSA1+12, ACHSA1+19, ACHSA1+20, ACHSA1+21*
U	ACHSA1+12, B0+10, B1+15, B2+5, B2+6, B4+4, B4+17, B4+23, B4+27, B5+6 , B5+8, B5A+4, B5A+26, B5A+27, B5A+30, NOCITY+2, PAWNEE+4, PAWNEE+7, PAWNEE+9
>> X	B5A+26*, B5A+27
>> Y	B0+5, B0B+5, B2+2, B2+5, B2+6, B51+6, B51+8, B51+9, B5A+16, B5A+19 , B5A+27, PAWNEE+6, PAWNEE+7, PAWNEE+9, PAWNEE+13

Customize PDF page

Package: Contract Health Management Information System