Routine: APSPPT

Information

APSPPT ; IHS/DSD/ENM - FIX PHARMACY PATIENT FILE ; [ 09/03/97 1:30 PM ]

Source file <APSPPT.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(^DPT(APSPPT("PAT"),0),U,1)_" "_APSPPT("IRXN") Line Location: DELETE+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DELETE+1
^PS(55 - [#55]	START+1, PT+1, CHECK+1, DELETE+2*, DELETE+3!, DELETE+4, DELETE+5

Name	Field # of Occurrence
^(	DELETE+4!, DELETE+5!
^(0	DELETE+2

Name	Field # of Occurrence
%	DELETE+4*, EOJ+1!
APSPPT	EOJ+1!
APSPPT("IRXN"	CHECK+1*, CHECK+2!, DELETE+1, DELETE+4, DELETE+5
APSPPT("PAT"	START+1*, PT+1, CHECK+1, DELETE+1, DELETE+2, DELETE+3, DELETE+4, DELETE+5
APSPPTI	PT+1*, PT+2!, CHECK+1, DELETE+3
U	DELETE+1, DELETE+2