Prompt: !,"Enter a Problem Number in the form XXXXNN, where XXXX is the 2-4 digit location",!," abbreviation and NN is a problem number from 1 to 999.99."
Line Location: APCDPLK+5
Function Call: WRITE
Prompt: !,"Enter a Problem number in the form XXXXNN where XXXX is the 2-4 digit location",!," abbreviation and NN is problem number. The available loc. abbrevs are:"
Line Location: APCDPLK+6
Function Call: WRITE
Prompt: !,"No facility code has been entered."
Line Location: APCDPLK+9
Function Call: WRITE
Prompt: !,"NO Location Abbreviation - PLEASE NOTIFY YOUR SUPERVISOR"
Line Location: APCDPLK+10
Function Call: WRITE
Prompt: !,"Invalid problem number"
Line Location: APCDPLK+11
Function Call: WRITE
Prompt: !,"No Problem Number ",APCDPN," on file for this patient for location ",$P(^AUTTLOC(APCDPLOC,0),U,2),"."