PSSNDCUT ;BIRM/MFR - NDC Utilities ;10-Dec-2013 16:28;DU
Source file <PSSNDCUT.m>
| 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) | 
 
 | 
| NDCFMT(NDC) | ; Formats NDC codes into 5-4-2 | 
 
 | 
| GETNDC(DRG,SITE,CMOP) | ; Retuns the NDC for a specific Drug/Site/CMOP or NON-CMOP | 
 
 | 
| 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 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| 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! |