Routine: PSSNDCUT

Information

PSSNDCUT ;BIRM/MFR - NDC Utilities ;10-Dec-2013 16:28;DU

Source file <PSSNDCUT.m>

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE $$GET1^DIQ

Package	Total	Caller Graph
Outpatient Pharmacy	12	PSOBPSU1 PSOBPSUT PSODRG PSOHLDIS PSON52 PSONDCUT PSOORDRG PSOORNW1 PSOORNW2 PSOR52 PSORN52 PSOSULBL
IHS Changes To Pharmacy	1	APSPFNC1

Name	Comments	DBIA/ICR reference
SAVNDC(DRG,SITE,NDC,CMP)	; Saves the NDC in the DRUG file (Format: 5-4-2) ; Input: (r) DRG - Drug IEN (#50) ; (r) SITE - Outpatient Site IEN (#59) ; (r) NDC - NDC Number ; (o) CMP - CMOP? (1-YES/0-NO)	ICR #4707 Status: Active Usage: Controlled Subscription
NDCFMT(NDC)	; Formats NDC codes into 5-4-2	ICR #4707 Status: Active Usage: Controlled Subscription
GETNDC(DRG,SITE,CMOP)	; Retuns the NDC for a specific Drug/Site/CMOP or NON-CMOP	ICR #4707 Status: Active Usage: Controlled Subscription
CHKCH(STR)	; Checks characters different from "-" and numbers

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PSNDF(50.68 - [#50.68]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	SAVNDC+10
^PSDRUG("AQ"	GETNDC+3

Name	Line Occurrences
$$CHKCH	NDCFMT+2
$$NDCFMT	SAVNDC+7, GETNDC+10, GETNDC+12

Name	Field # of Occurrence
CHKCH	CHKCH+1~, CHKCH+3*, CHKCH+4
CMOP	GETNDC~, GETNDC+3*
CMP	SAVNDC~, SAVNDC+16
DA	SAVNDC+5~, SAVNDC+15!, SAVNDC+16*
DA(1	SAVNDC+12, SAVNDC+16
DD	SAVNDC+5~, SAVNDC+13!
DIC	SAVNDC+5~, SAVNDC+11*
DIC(0	SAVNDC+12*
DIE	SAVNDC+5~, SAVNDC+15!*
DINUM	SAVNDC+5~, SAVNDC+12*, SAVNDC+13!
DO	SAVNDC+5~, SAVNDC+13!
DR	SAVNDC+5~, SAVNDC+15!, SAVNDC+16*
DRG	SAVNDC~, SAVNDC+10, SAVNDC+11, SAVNDC+12, SAVNDC+15, SAVNDC+16, GETNDC~, GETNDC+3, GETNDC+10, GETNDC+12
I	SAVNDC+5~, CHKCH+3*
NDC	SAVNDC~, SAVNDC+7, SAVNDC+16, GETNDC+1~, GETNDC+10, GETNDC+12*, GETNDC+13, NDCFMT~, NDCFMT+2, NDCFMT+3 , NDCFMT+4, NDCFMT+6, NDCFMT+7
NDF	GETNDC+1~, GETNDC+12*
RFL	SAVNDC+5~
S1	NDCFMT+1~, NDCFMT+7, NDCFMT+8, NDCFMT+9, NDCFMT+11, NDCFMT+12*, NDCFMT+16
S2	NDCFMT+1~, NDCFMT+7, NDCFMT+8, NDCFMT+9, NDCFMT+13, NDCFMT+16
S3	NDCFMT+1~, NDCFMT+7, NDCFMT+8, NDCFMT+9, NDCFMT+14, NDCFMT+16
SITE	SAVNDC~, SAVNDC+10, SAVNDC+12, SAVNDC+16, GETNDC~
STR	CHKCH~, CHKCH+2, CHKCH+3
X	SAVNDC+5~, SAVNDC+12*
Y	SAVNDC+5~, SAVNDC+13!