Routine: AMQQPOS

Information

AMQQPOS ;IHS/CMI/THL - POST INSTALLATION ROUTINE ;

Source file <AMQQPOS.m>

Package	Total	Call Graph
VA Fileman	2	WAIT^DICD (,IX)^DIK

Name	Comments	DBIA/ICR reference
RESET	; The following lines contain commands that perform hard sets ; of data global ^AMQQ - An exemption to SAC 6.1.2.3 has been approved ; by Jim McArthur per memo dated May 17, 1993. This exemption is
IMMUN	; Table of Compound Immunizations - IHS CODE:IHS CODE^QMAN LINK ENTRY ; DFNs will be changed to reflect current system state
GOLD	; ENTRY POINT TO SYNC-UP V FILES
G1
IMM	; Check compound immunization links to see if need to change a dfn
LAB
BAD	;
EXIT
MSG
BYE	; EXIT MESSAGE
G11

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"You must restore the QMAN globals prior to running this routine!" Line Location: AMQQPOS+4
Function Call: WRITE	Prompt: !! Line Location: LAB+0
Function Call: WRITE	Prompt: "." Line Location: LAB+1
Function Call: WRITE	Prompt: !!,"You must install the current version of the TAXONOMY File for QMAN to run properly!!!",!!,7,7 Line Location: GOLD+2
Function Call: WRITE	Prompt: !!,"If you want to be able to search for lab results, install a version of",!,"the V LAB file which includes field 1103",!!,7,7 Line Location: GOLD+3
Function Call: WRITE	Prompt: !,$P(Y,U)," (",X,")" Line Location: MSG+0
Function Call: WRITE	Prompt: !,$P(^AMQQ(5,X,0),U)," NOT FOUND IN YOUR DATABASE" Line Location: BAD+1
Function Call: WRITE	Prompt: !!!,"Good news! The installation of Q-Man has been successfully completed." Line Location: BYE+1
Function Call: WRITE	Prompt: !!,"Bad news! You still have some work to do: assign keys and security codes," Line Location: BYE+2
Function Call: WRITE	Prompt: !,"put the Q-Man options on the menu, and use the Q-Man Managers Utilities." Line Location: BYE+3
Function Call: WRITE	Prompt: !,"If you do not have written instructions, do a Fileman Inquire on the Q-Man" Line Location: BYE+4
Function Call: WRITE	Prompt: !,"entry of the package file.",!!!,7,7 Line Location: BYE+5

Name	Line Occurrences (* Changed, ! Killed)
^AMQQ(1 - [#9009071]	AMQQPOS+4, G1+1, RESET+3, RESET+5, RESET+6, RESET+7, IMM+4
^AMQQ(5 - [#9009075]	GOLD+1, BAD+1, RESET+7
^DD(9000010.09	GOLD+3
^DD(9002226	GOLD+2
^UTILITY("AMQQ"	LAB, LAB+1, LAB+2, LAB+3!

Name	Field # of Occurrence
%	AMQQPOS+3~, EXIT!, G1, G1+1, G1+2, G1+3, G1+5, G11+3, G11+5, RESET+6* , RESET+7, IMM+4
%A	IMM+1~, IMM+2*, IMM+3
%B	IMM+1~
%C	IMM+1~, IMM+3, IMM+4, IMM+5*
%D	IMM+1~, IMM+3*
%E	IMM+1~, IMM+5*
%F	IMM+1~, IMM+5*
%I	IMM+1~, IMM+2*
%LINK	IMM+1~, IMM+3*, IMM+4
%Z	AMQQPOS+3~, EXIT!, G11*, IMM+3
A	AMQQPOS+3~, EXIT!, G1+4, G1+5, RESET+5, RESET+6, RESET+7, RESET+8, IMM+4*
B	AMQQPOS+3~, EXIT!, G1*, RESET+3, RESET+5, RESET+6, RESET+7
C	EXIT!, RESET+6, RESET+7, IMM+4*
D	LAB+3!
DA	LAB+1, LAB+2, LAB+3!, BAD+3, BAD+5!
DFN	AMQQPOS+3~, EXIT!, G11+5*, IMM+5
DIC	LAB+3!
DIK	LAB+1, LAB+3!, BAD+2, BAD+5!
I	AMQQPOS+3~, EXIT!, RESET+7, IMM+3, IMM+4*
U	GOLD+1, G1, MSG, BAD+1, RESET+3, RESET+4, RESET+7, IMM+3
X	AMQQPOS+3~, LAB+2, LAB+3!, GOLD+1, EXIT!, MSG, BAD+1, BAD+3, RESET+7
Y	AMQQPOS+3~, LAB+2, LAB+3!, GOLD+1, EXIT!, G1, MSG
Z	AMQQPOS+3~, LAB+2, LAB+3!, GOLD+1, EXIT!, G1+4, G11, G11+1, G11+2, G11+3 , G11+4, RESET+3, RESET+4, RESET+6, RESET+7, IMM+5