Routine: QAMGRP1

Information

QAMGRP1 ;HISC/DAD-AUTO LOAD GROUP DATA: ICD DIAGNOSES ;9/3/93 13:14

Source file <QAMGRP1.m>

Package	Total	Call Graph
Clinical Monitoring System	1	^QAMGRP2
Quality Assurance Integration	1	ENSET^QAQAXREF
VA FileMan	1	(FILE,YN)^DICN

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Loading: ",X Line Location: LOOP+1
Function Call: WRITE	Prompt: !!?5,"* ",X," already exists !! ",7 Line Location: LOOP+2
Function Call: WRITE	Prompt: !!?5,"Do you want to check this group's completeness" Line Location: ASK+0
Function Call: WRITE	Prompt: !!?10,"Please answer Y(es) or N(o)" Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"Working",! Line Location: ASK+4
Function Call: WRITE	Prompt: ?TAB,NUMBER Line Location: SKIP+1
Function Call: WRITE	Prompt: !!,QAQCOUNT," ICD-9-CM Diagnosis Codes ",$S(QAQCHECK=1:"checked",1:"loaded"),".",! Line Location: SKIP+6

FileNo	Call Tags
^QA(743.5 - [#743.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ICD9 - [#80]	ASK+10
^ICD9("BA"	ASK+8, ASK+9
^QA(743.5 - [#743.5]	LOOP+2, ASK+12, ASK+13, SKIP+5

Name	Field # of Occurrence
>> %	ASK+1*, ASK+2
D0	EXIT!, ASK+9*, ASK+10, ASK+11, ASK+13, ASK+14, SKIP
DA	EXIT!, ASK+14*
DA(1	ASK+14*
DD	ASK+5!
DIC	EXIT!, ASK+5!*
DIC("DR"	ASK+5*
DIC(0	ASK+5*
DIK	EXIT!
DINUM	ASK+5!
DLAYGO	EXIT!, ASK+5*
DO	ASK+5!
END	EXIT!, ASK+7*, ASK+8
LASTD0	EXIT!, SKIP*, SKIP+5
LINE	EXIT!, ASK+6*, ASK+7
NUM	EXIT!, ASK+7, ASK+8, ASK+9
NUMBER	EXIT!, ASK+10*, ASK+11, SKIP+1
OFFSET	EXIT!, ASK+6*
QAMD0	EXIT!, LOOP+2, ASK+5, ASK+12, ASK+13, ASK+14, SKIP+5
>> QAQADICT	ASK+14*
>> QAQAFLD	ASK+14*
QAQCHECK	QAMGRP1+2, QAMGRP1+3, EXIT!, LOOP+2, ASK+2, ASK+5, SKIP+6
QAQCOUNT	EXIT!, ASK+4, SKIP, SKIP+5, SKIP+6
QAQLABEL	QAMGRP1+2*, EXIT!
ST	EXIT!, ASK+7*
TAB	EXIT!, ASK+4, SKIP+1
X	EXIT!, LOOP+1, LOOP+2, ASK+11, ASK+12, ASK+13
Y	EXIT!, ASK+5

Name	Field # of Occurrence
$T(@QAQLABEL	LOOP+1
$T(@QAQLABEL+OFFSET	ASK+6