PSORN52D ;BIR/LE - files new and renewal entries con't ;02/27/04
Source file <PSORN52D.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GET | ;must have FILE and PSORENW variables to pull default data for ICD and SC/EI for SC>50% Rx's from file 52
|
|
| G1 | ;get ICD, if no IBQ node get SC/EI's
|
|
| FILE | ;
|
|
| FILE2 | ;file ICD's on existing node or build new nodes
|
|
| RESET | ;called from reset copay status PSOCPC
|
|
| SCP | ;Called from multiple routines - DFN or PSODFN variable must be available to call this subroutine.
|
|
| SHAD | ;
|
|
| SET3 | ;for when patient status is exempt or SC>50
|
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GET1^DIQ |
| ^PS(52.41 - [#52.41] | GET1^DIQ |
