Routine: LRAPCUM1

Information

LRAPCUM1 ;AVAMC/REG - AP PATIENT CUM ;7/15/93 10:36

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LR("%"),!,"SNOMED/ICD codes:" Line Location: LRAPCUM1+6
Function Call: WRITE	Prompt: !,"T-",$P(T,"^",2),": " Line Location: LRAPCUM1+6
Function Call: WRITE	Prompt: !,"T-",$P(T,"^",2),": " Line Location: LRAPCUM1+6
Function Call: WRITE	Prompt: ! Line Location: LRAPCUM1+8
Function Call: WRITE	Prompt: !,"ICD code: ",$P(LRX,"^",2),?20 Line Location: LRAPCUM1+15
Function Call: WRITE	Prompt: X Line Location: LRAPCUM1+17
Function Call: WRITE	Prompt: !?5,"M-",$P(M,"^",2),": " Line Location: M+0
Function Call: WRITE	Prompt: X Line Location: M+0
Function Call: WRITE	Prompt: !?5,$S(B=1.4:"D-",B=3.3:"F-",B=4.5:"P-",1:""),$P(M,"^",2),?12,": " Line Location: A+0
Function Call: WRITE	Prompt: X Line Location: A+0
Function Call: WRITE	Prompt: !?10,"E-",$P(E,"^",2),": " Line Location: EX+0
Function Call: WRITE	Prompt: X Line Location: EX+0