Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  ^DIE  ^DIK  ^DIR  
Quasar 3 (EXIT,FILE)^ACKQFIL  CNTR^ACKQUTL  LONG^ACKQUTL6  
DRG Grouper 1 $$CSI^ICDEX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Quasar 1 ACKQFIL  

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.

External References

Name Field # of Occurrence
EXIT^ACKQFIL ADD+2, ADD+5
FILE^ACKQFIL ADD+2, ADD+5
CNTR^ACKQUTL CKCPT+8, CKCPT+12, CKCPT+14, CKCPT+16, DIK+1
LONG^ACKQUTL6 ADD+4
^DIC ADD+2
^DIE CDR, ICD, CPT
^DIK DIK+2
^DIR ICD+5
$$CSI^ICDEX ADD+3

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
Routine Call
  • DIC
  • Line Location:
    • ADD+2
Routine Call
  • DIE
  • Line Location:
    • CDR
    • ICD
    • CPT
Routine Call
  • DIR
  • Line Location:
    • ICD+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK( ADD+5, ORIG+1, ICD+2, ICD+4, CHECK+4, UNLK, RESET+2*
^TMP("ACKQ_CO_DIRECTIVE" ADD+1*, ADD+2!

Label References

Name Line Occurrences
ADD UNLK+1
CHECK CDR, ICD
DIK CKCPT+10
KVAR UNLK+1
RESET CKCDR+2, CKICD+2, CKCPT+2
UNLK CKCPT+8, CKCPT+10, CKCPT+12, CKCPT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACKCOMP CHECK+4*, CKCDR+2*, CKICD+2*, CKCPT+2*, CKCPT+8, CKCPT+10, CKCPT+12, CKCPT+14, CKCPT+16, KVAR+1!
>> ACKFNUM ADD+2, ADD+4, ADD+5, ORIG+1, CDR, ICD, ICD+2, ICD+4, CPT, CHECK+4
, CKCDR+1, CKICD+1, CKCPT+1, CKCPT+8, UNLK, DIK+2, RESET+2
ACKHRLOS ICD+1*, ICD+2*, ICD+5*, KVAR+1!
ACKICDCS ADD+3~*, ICD+1
>> ACKIEN ADD+3*, ADD+4, ADD+5, ORIG+1, ICD+2, ICD+4, CHECK+4, UNLK, DIK+2, RESET+2
ACKLAYGO ADD+2*, KVAR+1!
ACKMOD KVAR+1!
ACKNEW ADD+5*, ORIG+1, CKCPT+10, CKCPT+12, CKCPT+14, KVAR+1!, RESET+2
ACKORIG ORIG+1*, KVAR+1!, RESET+2
ACKSUB CKCPT+10!
ACKZNODE CHECK+4*, CKCDR+2, CKICD+2, CKCPT+2, CKCPT+10!, KVAR+1!
DA ADD+3*, CDR!, DIK+2*, KVAR+1!
DIC ADD+2*!, KVAR+1!
DIC("A" ADD+2*
DIC(0 ADD+2*
DIE ADD+2*, CDR!, KVAR+1!
DIK DIK+2*, KVAR+1!
DIR ICD+3!, ICD+5!, KVAR+1!
DIR("?" ICD+3*
DIR("??" ICD+5*
DIR("A" ICD+3*
DIR("B" ICD+4*
DIR(0 ICD+3*
DIRUT ICD, ICD+5, KVAR+1!
DLAYGO ADD+2*, KVAR+1!
DR CDR*!, ICD*, CPT*
ICDFMT ADD+1*, ADD+2!
PC CKCDR+2*, CKICD+2*, CKCPT+2*, CKCPT+10!, RESET+2
X ICD+3!, KVAR+1!
Y ADD+2, ADD+3, ADD+5, ICD+3!, ICD+5, KVAR+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All