Routine: TIUPXAP2

Information

TIUPXAP2 ; SLC/JER - More code for the workload capture ;12/4/02@07:54:52 [1/18/05 9:27am]

Name	Comments	DBIA/ICR reference
TEST	; Test the PXAPI Data Capture dialogs
CPTCALL
CMBLST(EMCODES,CPTCODES)	; Combine E/M and other CPT codes
PICK(LOW,HIGH,PROMPT,TYPE)	; List selection
EDTENC(TIUDA,CHNG)	; Edit the encounter for a given note
CHKVST(TIUDA)	;Check the visit associated with the document for key workload
CHKVSTQ
UPDVST(TIUDA,TIUVSIT,ERROR)	;Update Visit in TIU Document file #8925 ; Input -- TIUDA TIU Document file (#8925) IEN ; TIUVSIT Visit file (#9000010) IEN ; Output -- 1=Successful and 0=Failure ; ERROR Error Message (Optional)
UPDVSTQ
CHKWKL(TIUDA,TIUDPRM)	;Check if workload data should be entered ; Input -- TIUDA TIU Document file (#8925) IEN ; TIUDPRM TIU Document Parameters file (#8925.95) Array ; Output -- 1=Enter Workload and 0=Do Not Enter Workload
CHKWKLQ
CHKAPPT(TIUVSIT,TIUDFN,TIUEDT,TIUHL)	;Check if an appointment is associated with the Visit ; Input -- TIUVSIT Visit file (#9000010) IEN ; TIUDFN Patient file (#2) IEN ; TIUEDT Episode Begin Date/Time ; TIUHL Hospital Location file (#44) IEN ; Output -- 0=Appointment is not associated with the Visit ; 1=Appointment is associated with the Visit

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"You MUST enter one or more Procedures." Line Location: CPTCALL+1
Function Call: WRITE	Prompt: !,$C(7),"Insufficient information for Workload Credit." Line Location: CPTCALL+4
Function Call: WRITE	Prompt: !,"Missing information will have to be captured by another method." Line Location: CPTCALL+5
Function Call: WRITE	Prompt: !!,"Changes Discarded. Please Enter Corrected Workload Data..." Line Location: CPTCALL+8
Function Call: WRITE	Prompt: "Done." Line Location: CPTCALL+11
Function Call: WRITE	Prompt: ! Line Location: PICK+2
Function Call: WRITE	Prompt: !! Line Location: EDTENC+26
Function Call: WRITE	Prompt: !!,"For ",$G(TIU("PNM"))," ",$G(TIU("PID"))," Visit on " Line Location: EDTENC+33
Function Call: WRITE	Prompt: $P($G(TIU("EDT")),U,2),"...",! Line Location: EDTENC+34
Function Call: WRITE	Prompt: !!,$C(7),"ACRP will not accept data for future Encounters.",! Line Location: EDTENC+36
Function Call: WRITE	Prompt: !,"Workload questions won't be asked for this note.",! Line Location: EDTENC+37
Function Call: WRITE	Prompt: !!,"Editing Encounter Data...",! Line Location: EDTENC+39
Function Call: WRITE	Prompt: ! Line Location: EDTENC+46