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 |  Interaction Calls
Print Page as PDF
Routine: ACKQFIL1

Package: Quasar

Routine: ACKQFIL1


Information

ACKQFIL1 ;BIR/PTD - Update A&SP Files per CO Directive - CONTINUED ;20 Jun 2013 10:49 AM

Source Information

Source file <ACKQFIL1.m>

Entry Points

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.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"All fields MUST be answered. Otherwise a new entry",!,"is considered incomplete and will be deleted.",!
  • Line Location: ACKQFIL1+7
Function Call: WRITE
  • Prompt: !,"Another user is editing this entry...try again later."
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ICD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MOD+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: CKCPT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CKCPT+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: CKCPT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CKCPT+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: CKCPT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: CKCPT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: CKCPT+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: CKCPT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: CKCPT+16
Function Call: WRITE
  • Prompt: !!,$C(7)
  • Line Location: DIK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DIK+1
Info |  Source |  Entry Points |  Interaction Calls