Routine: PRSACED6

Information

PRSACED6 ; HISC/FPT-T&A Cross-Edits ;5/9/2012 13:21

Source file <PRSACED6.m>

Name	Comments	DBIA/ICR reference
CODES	; Set variables T0 and T1 with 8B code list ; 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
STUB	; parse out 'stub' variables from 8b record
TYPE	; parse out type of time from 8b record
CD	; calculate/compare cd value

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THE CD VALUE DID NOT ADD UP CORRECTLY FOR ",$P($G(^PRSPC(DFN,0)),"^",1) Line Location: CD+5