Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: PSUDEM8

Package: Pharmacy Benefits Management

Routine: PSUDEM8


Information

PSUDEM8 ;BIR/DAM - ICD9 Codes for Inpatient PTF Record Extract ;20 DEC 2001

Source Information

Source file <PSUDEM8.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;EN CALLED FROM PSUDEM7
PTFIEN ;$O through ^XTMP("PSU_"_PSUJOB,"PSUIPV" to get all the PTF IEN's
PTF70 ;Find all ICD pointers present on ^DGPT(D0,70 node
ICD91 ;Find ICD codes from pointer on ^DGPT(D0,70 node and place in
PTFM ;
DEL ;Delete duplicates
FIN ;$O through array, and set codes into the Inpatient Record
Info |  Source |  Entry Points