Routine: APSPLPAT

Information

APSPLPAT ;IHS/MSC/PLS - APSP Last Pharmacy Patch Lister ;16-Sep-2013 11:18;DU

Source file <APSPLPAT.m>

Package	Total	Call Graph
Kernel	3	$$FMTE^XLFDT $$CJ^XLFSTR $$VERSION^XPDUTL
IHS Changes To Pharmacy	1	DIRZ^APSPUTIL
VA Fileman	1	FIND^DIC

Name	Comments	DBIA/ICR reference
EN	;EP
FND()	;EP
PKG	;;NATIONAL DRUG FILE;4.0
LAST(PKG,VER)	;returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: EN+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Pharmacy Related Packages",IOM) Line Location: EN+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Last Patch Lister",IOM),! Line Location: EN+4
Function Call: WRITE	Prompt: !,"Package",?34,"Version",?45,"Last Patch",?60,"Date Installed" Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: EN+6
Function Call: WRITE	Prompt: "-" Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: EN+7
Function Call: WRITE	Prompt: !! Line Location: EN+12
Function Call: WRITE	Prompt: !,"EHR has not been installed at this site." Line Location: EN+17
Function Call: WRITE	Prompt: ! Line Location: EN+18
Function Call: WRITE	Prompt: !,"Benchmark Price has not been installed at this site." Line Location: EN+23
Function Call: WRITE	Prompt: !! Line Location: EN+24
Routine Call	DIC Line Location: FND+2

FileNo	Call Tags
^XPD(9.7 - [#9.7]	FIND^DIC

Name	Line Occurrences (* Changed, ! Killed)
^APSPCTRL("AWP DATE"	EN+20
^DIC(9.4 - [#9.4]	LAST+4, LAST+5, LAST+7, LAST+8, LAST+10

Name	Line Occurrences
$$FND	EN+14
$$LAST	EN+10

Name	Field # of Occurrence
^(0	LAST+11

Name	Field # of Occurrence
AWPDT	EN+1~, EN+20*, EN+21, EN+22
DAT	FND+1~, FND+4*, FND+5, FND+7
DATA	FND+1~
DATA("DILIST"	FND+3, FND+4, FND+8
EHRREC	EN+1~, EN+14*, EN+15, EN+16
ERR	FND+1~
IEN	FND+1~, FND+3, FND+6, FND+8
INFO	EN+1~, EN+10*, EN+11
IOF	EN+2
IOM	EN+3, EN+4, EN+6
LATEST	LAST+2~, LAST+6, LAST+10, LAST+11, LAST+12
LP	EN+1~, EN+6, FND+1~, FND+3, FND+4, FND+6
LSTDT	FND+1~, FND+3, FND+5, FND+7
PATCH	LAST+2~, LAST+6, LAST+11, LAST+12
PKG	EN+1~, EN+9*, EN+10, LAST~, LAST+3, LAST+4
PKGIDT	LAST+2~, LAST+7*, LAST+12
PKGIEN	LAST+2~, LAST+4*, LAST+5, LAST+7, LAST+8, LAST+10
ROW	EN+1~, EN+8*
SUBIEN	LAST+2~, LAST+6, LAST+8, LAST+10
U	EN+11, EN+16, FND+5, FND+7, LAST+7, LAST+10, LAST+11, LAST+12
VER	EN+1~, EN+9, EN+10, EN+11, LAST~, LAST+3, LAST+5
VERIEN	LAST+2~, LAST+5*, LAST+7, LAST+8, LAST+10
>> X	EN+8*, EN+9, EN+11

Name	Field # of Occurrence
$T(PKG+ROW	EN+8