Prompt: @$S($D(IOF):IOF,1:"#"),?5,"THIS ROUTINE ADDS DRUG CODES TO VITEK AUTOINSTRUMENT ENTRIES THAT"
Line Location: LAMICRA+3
Function Call: WRITE
Prompt: !,"COULD NOT BE ADDED THRU FILEMAN OR YOU WANT TO CHANGE.",!,?30,"NOTE",!,"THE DRUG MUST ALREADY HAVE BEEN ADDED TO FILE",!
Line Location: LAMICRA+4
Function Call: WRITE
Prompt: "ALL DRUG ENTRIES FOR A CARD TYPE WILL BE PROMPTED.",!,"IF YOU ENTER AN '^' YOU WILL BE ASKED IF YOU WANT TO EXIT."
Line Location: LAMICRA+5
Function Call: WRITE
Prompt: !?5,"ANSWER YES AND THE PROGRAM STOPS PROMPTING DRUGS FOR THAT CARD.",!?5,"ANSWER NO AND THE '^' WILL BE ADDED AS THE CODE FOR THAT DRUG.",!?5,"TAKE NOTE THAT A PRINTOUT OF THE DRUG CODES WILL NOT SHOW THE '^' CODE.",!
Line Location: LAMICRA+6
Function Call: WRITE
Prompt: "NOT VALID CARD TYPE TRY AGAIN.",!
Line Location: START+1
Function Call: WRITE
Prompt: !,"CARD TYPE "_LACARDC_" "_LACARDN_" AND DRUG ",LADRUG," HAS CODE ",LACODEO,"//"
Line Location: BLNK+2
Function Call: WRITE
Prompt: "OK, NOTHING ADDED OR CHANGED.",!
Line Location: BLNK+3
Function Call: WRITE
Prompt: $C(7),?10,"DO YOU WANT TO EXIT"
Line Location: B2+0
Function Call: WRITE
Prompt: !
Line Location: B2+0
Function Call: WRITE
Prompt: "ENTER YES TO STOP CHECKING DRUGS. NO TO CONTINUE AND ADD '^' AS A VALID CODE.",!
Line Location: B2+1
Function Call: WRITE
Prompt: "OLD CODE ",LACODEO," DELETED FROM CROSS REFERENCE.",!
Line Location: B2+2
Function Call: WRITE
Prompt: "CODE ",LACODE,$P("^ NOT","^",LACODE="^"+1)," STORED IN GLOBAL NODE.",!
Line Location: B2+3
Function Call: WRITE
Prompt: "CODE ",LACODE," ADDED TO CROSS REFERENCE.",!