ACKQFIL1 ;BIR/PTD - Update A&SP Files per CO Directive - CONTINUED ;20 Jun 2013 10:49 AM
Source file <ACKQFIL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADD | ;User wants to add new file entries.
|
|
| ORIG | ; For an existing entry, get the original zero node field values.
|
|
| CDR | ||
| ICD | ||
| CPT | ||
| MOD | ; Does this code have mofifiers?
; K DIR,X,Y S DIR(0)="Y",DIR("A")="Does this code have modifiers",DIR("?")="Answer YES to add code modifiers; answer NO if there are no modifiers." ; I ACKFNUM=509850.1 S DIR("B")=$S($P(^ACK(509850.1,ACKIEN,0),"^",2)=1:"YES",1:"NO") ; I ACKFNUM=509850.4 S DIR("B")=$S($P(^ACK(509850.4,ACKIEN,0),"^",5)=1:"YES",1:"NO") ; S DIR("??")="^D MOD^ACKQHLP1" W ! D ^DIR K DIR G:$D(DIRUT) CHECK S ACKMOD=+Y ; S DR=$S(ACKFNUM=509850.4:".05",1:".02")_"///^S X=ACKMOD" D ^DIE ; I ACKMOD=0 G CHECK ;Code does not have modifiers. |
|
| SUBFL | ; Selected code has modifiers, subfile fields must be answered.
; S (DIC,DIE)="^ACK("_ACKFNUM_","_ACKIEN_",1,",DIC(0)="QEALM",DLAYGO=ACKFNUM,DA(1)=ACKIEN,DIC("P")=$P(^DD(ACKFNUM,1,0),"^",2) D ^DIC K DIC I Y<0 G CHECK ; S (ACKSUB,DA)=+Y,DR=".01T;.02T"_$S(ACKFNUM=509850.4:";.03T",1:"") D ^DIE K DA,DIE,DR G SUBFL |
|
| CHECK | ; Determine if all fields have been answered.
; ACKCOMP equals: 1 if all fields answered. ; 0 if zero node fields not answered. ; -1 if subfile fields not answered. |
|
| CKCDR | ; Examine CDR ACCOUNT file.
|
|
| CKICD | ; Examine A&SP DIAGNOSTIC CONDITION file.
|
|
| CKCPT | ; Examine A&SP PROCEDURE CODE file.
|
|
| UNLK | ||
| DIK | ; All fields not answered for new entry, so delete it.
|
|
| KVAR | ; Kill selected variables.
|
|
| RESET | ; Existing entry edited, leaving blank fields.
; Restore original value for any blank field on zero node. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
