Global: ^AWC(177100.12

FileMan FileNo	FileMan Filename	Package
177100.12	CPRS MONITOR	Toolkit

Package	Total	Routines
Toolkit	9	AWCMCPR1 AWCMCPR2 AWCMCPR3 AWCMCPS2 AWCMCPST AWCMCPUR AWCMFTP AWCMFTP1 ^AWC(177100.12

Package	Total	Routines
Toolkit	2	AWCMCPS2 AWCMCPST

Package	Total	FileMan Files
Kernel	1	INSTITUTION(#4)[.01]

Fields, Total: 26

Field #	Name	Loc	Type	Details
.01	FACILITY	0;1	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) INPUT TRANSFORM: `S DINUM=1 Q` LAST EDITED: `DEC 28, 2003` HELP-PROMPT: `Enter the station number or name of the main facility where this software will run.` DESCRIPTION: `This is a pointer to file 4, the INSTITUTION file which will provide the name of your facility.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `177100.12^B` `1)= S ^AWC(177100.12,"B",$E(X,1,30),DA)=""` `2)= K ^AWC(177100.12,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^177100.12^1.5` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AWC(177100.12,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(177100.12,.01,1,2,1.1) X ^DD(177100.12,.01,1,2,1.4)` `1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^DIC(4,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4,D0,99)):^(99),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)` `1.4)= S DIH=$G(^AWC(177100.12,DIV(0),1)),DIV=X S $P(^(1),U,2)=DIV,DIH=177100.12,DIG=1.5 D ^DICR` `2)= Q` `CREATE VALUE)= FACILITY:#99` `DELETE VALUE)= NO EFFECT` `FIELD)= #1.5` `Stuff the station number into field 1.5 when Facility is entered.`
1	TIU TAB	0;2	SET	**********************REQUIRED FIELD********************** '1' FOR ON; '0' FOR OFF; LAST EDITED: `DEC 30, 2003` HELP-PROMPT: `Enter 1 for ON, 0 for OFF, or you may type in ON or OFF.` DESCRIPTION: `This is a logical switch that controls whether data is captured for the item.`
1.2	SYSTEM ACTIVE	0;17	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 30, 2003` HELP-PROMPT: `Enter Y or 1 to turn the data capture on or N or 0 to turn it off.` DESCRIPTION: `This is the master switch for the entire data capture system.`
1.5	STATION NUMBER	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `DEC 26, 2003` HELP-PROMPT: `This field is triggered by the FACILITY field (#.01).` DESCRIPTION: `This is the local station number and is triggered by field .01, the FACILITY field. All national statistics will be aggregated under this number.` NOTES: `TRIGGERED by the FACILITY field of the CPRS MONITOR File`
2	LAB COVERSHEET	0;3	SET	**********************REQUIRED FIELD********************** '1' FOR ON; '0' FOR OFF; LAST EDITED: `DEC 30, 2003` HELP-PROMPT: `Enter 1 for ON, 0 for OFF, or you may type in ON or OFF.` DESCRIPTION: `This is a logical switch that controls whether data is captured for the item.`
3	REMINDERS COVERSHEET	0;4	SET	**********************REQUIRED FIELD********************** '1' FOR ON; '0' FOR OFF; LAST EDITED: `DEC 30, 2003` HELP-PROMPT: `Enter 1 for ON, 0 for OFF, or you may type in ON or OFF.` DESCRIPTION: `This is a logical switch that controls whether data is captured for the item.`
4	HFS LOCATION	0;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `DEC 28, 2003` HELP-PROMPT: `Answer must be 3-40 characters in length. This is a required field.` DESCRIPTION: `This is a host file location that will be used to write the html pages to be sent by ftp to the web server. This may be any directory accessible by the operating system. It should be noted that the proper permissions must` `exist on the directory, e.g., read, write, and delete for all functions to work properly.`
5	WEB PAGE NAME	0;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<5) X I $D(X) K:"^.html^.htm^.HTML^.HTM^"[(U_"."_$P(X,".",2)_U) X` LAST EDITED: `FEB 01, 2004` HELP-PROMPT: `Enter the name of the web page, without .htm or .html.` DESCRIPTION: `This is the name of the webpage for the server. It may be anything the facility wishes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6	NUMBER OF HOURS TO DISPLAY	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>12)!(X<5)!(X?.E1"."1.N) X` LAST EDITED: `DEC 26, 2003` HELP-PROMPT: `Type a number between 5 and 12. The recommended is eight hours.` DESCRIPTION: `This controls the number of hours displayed on the web page.`
7	MAXIMUM SECONDS TO DISPLAY	0;8	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>240)!(X<10)!(X?.E1"."1.N) X` LAST EDITED: `AUG 28, 2003` HELP-PROMPT: `Type a number between 10 and 240. The recommended is ten seconds.` DESCRIPTION: `This field controls how many seconds display on the html graph. It can be set from 10 to 240 seconds. Anything over 240 will flatline at the top of the graph.`
8	TIU LINE COLOR	0;9	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>11!($L(X)<5)!'(X?1.3N1","1.3N1","1.3N) X` LAST EDITED: `DEC 30, 2003` HELP-PROMPT: `Answer must be 5-11 characters in length. This is an RGB color code. Example: 100,23,109.` DESCRIPTION: `The RGB color code for the TIU line. It must be in the form 1-3 numbers, 1 comma,1-3 numbers, 1 comma, 1-3 numbers.`
9	LAB LINE COLOR	0;10	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>11!($L(X)<5)!'(X?1.3N1","1.3N1","1.3N) X` LAST EDITED: `DEC 05, 2003` HELP-PROMPT: `Answer must be 5-11 characters in length. This is an RGB color code. Example: 100,23,109.` DESCRIPTION: `The RGB color code for the LAB line. It must be in the form 1-3 numbers, 1 comma,1-3 numbers, 1 comma, 1-3 numbers.`
10	REMINDERS LINE COLOR	0;11	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>11!($L(X)<5)!'(X?1.3N1","1.3N1","1.3N) X` LAST EDITED: `DEC 30, 2003` HELP-PROMPT: `Answer must be 5-11 characters in length. This is an RGB color code. Example: 100,23,109.` DESCRIPTION: `The RGB color code for the REMINDER line. It must be in the form 1-3 numbers, 1 comma,1-3 numbers, 1 comma, 1-3 numbers.`
11	DISPLAY GRID?	0;12	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `DEC 28, 2003` HELP-PROMPT: `Enter 1 or Y to display the grid, 0 or N not to display it.` DESCRIPTION: `This determines whether the graph on the webpage has the grid display off or on. It is suggested to leave the grid on at all times to facilitate viewing the data values displayed.`
12	BACKGROUND COLOR	0;13	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>11!($L(X)<5)!'(X?1.3N1","1.3N1","1.3N) X` LAST EDITED: `DEC 05, 2003` HELP-PROMPT: `Answer must be 5-11 characters in length. This is an RGB color code. Example: 100,23,109.` DESCRIPTION: `The RGB color code for the graph background. It must be in the form 1-3 numbers, 1 comma,1-3 numbers, 1 comma, 1-3 numbers. Example: 100,23,109.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
13	NUMBER OF DAYS TO KEEP DATA	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `DEC 28, 2003` HELP-PROMPT: `Type a number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: `This is the number of days to keep the data on file. It is suggested to keep the maximum on file so as to be able to produce trends with VA Fileman. You may select from 1 day to 9999 days.`
14	WEB PAGE ROOT LOCATION	0;15	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `DEC 26, 2003` HELP-PROMPT: `Answer must be 1-50 characters in length. This entry should not end in / .` DESCRIPTION: `This is the root of the web page to be able to display other divisions. It is also used to enable the auto-refresh of the web pages.` `The proper format is: vaww.facility.domain.ext/web server foldername. You do not have to have a "/" on the end.` `If this is not filled in properly, the other sites (divisions, satellite offices, CBOCs, etc.) will not display properly.` `Example: web server folder name for monitor page: cprsmonitor` `===========` `facility name: zzzhospital` `===========` `The entry would be: vaww.zzzhospital.domain.ext/cprsmonitor` `Each satellite office page will be appended to this to make a full URL.`
17	WEB SERVER ADDRESS	1;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<7) X` LAST EDITED: `DEC 26, 2003` HELP-PROMPT: `Answer must be 7-50 characters in length and a valid DNS entry.` DESCRIPTION: `This is the IP address of the webserver that will display the monitor page.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
18	WEB SERVER FTP USER	1;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `DEC 26, 2003` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the NT username that will be used to log into the WEB SITE FTP server where the facility monitor pages are stored. It must be a valid NT account but does not have to be in any groups or have special access.` `This field must be input in this way: domain\username` `Like: vhann\vhaxxxname` `Example: vha07\vhabirsmythj`
19	WEB SERVER FTP PASSWORD	1;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>16!($L(X)<8) X` OUTPUT TRANSFORM: `S Y=""` LAST EDITED: `DEC 24, 2003` HELP-PROMPT: `This is the NT password for the LOCAL FTP USER.` DESCRIPTION: `This is the password to be used with the username (field 18) to log into the WEB SITE FTP server where the monitor pages are stored.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
20	NATIONAL FTP SERVER ADDRESS	1;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<7) X` LAST EDITED: `DEC 26, 2003` HELP-PROMPT: `Answer must be 7-50 characters in length and must be a valid DNS entry.` DESCRIPTION: `This is the DNS of the National server which will keep the national cprs monitor time aggregation for the nation.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
21	NATIONAL FTP USER	1;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `DEC 26, 2003` HELP-PROMPT: `Answer must be 3-30 characters in length. This is the National ftp user name.` DESCRIPTION: `This is the NT username for the National CPRS monitor times web server.`
22	NATIONAL FTP PASSWORD	1;8	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>16!($L(X)<8) X` OUTPUT TRANSFORM: `S Y=""` LAST EDITED: `SEP 15, 2003` HELP-PROMPT: `This is the FTP password to roll up the national data.` DESCRIPTION: `This is the password used with the NATIONAL FTP USER to access the National CPRS Monitor ftp site to roll up the data.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
23	LOG VMS FTP ACTIVITY	0;16	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 26, 2003` HELP-PROMPT: `Enter 1 to log VMS activity or 0 (or enter nothing) to not log VMS activity.` DESCRIPTION: `Turns on or off VMS FTP activity logging. This affects VMS sites only.`
24	DELETE OLD COM FILES (VMS)	0;18	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `DEC 26, 2003` HELP-PROMPT: `Enter Y or 1 to delete the AWCMOVEHTM.COM after ftp or N or 0 (or nothing) to leave them. This affects VMS sites only.` DESCRIPTION: `Controls the deletion of web pages after the ftp process has completed. This affects VMS sites only.`
25	USE 'CD' COMMAND IN FTP SCRIPT	0;19	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 30, 2004` HELP-PROMPT: `If your site web server setup requires a "change directory" command, enter 1 for YES. If you change this value, always check to make sure it does what you want.` DESCRIPTION: `This field controls an additional instruction for the VMS com files that this application constructs during exection. The com file has commands for the FTP program to move a web page to a server.` `Some sites, according to the revision of they have (Windows 2000 server versus Windows 2003 server) and may arrive in the FTP root directory and may need to issue this command to go to the correct directory:` `where 'mydirectory' is the name of the directory that needs` `to be changed to:` `cd mydirectory` `Setting this field to 1 or YES will insert the above command into the script and force a directory change.` `The necessity of this command is dictated by the IIS revision. Under IIS versions less than v6, a proper virtual directory access is not feasible and the command must be used. SURE to check the success.` `NT sites do not need this switch but if used will not interfere with the transfer. VMS sites must be careful because if you issue this command and it is not needed, the com file will fail.`

Name	Line Occurrences (* Changed, ! Killed)
^AWC(177100.12 - [#177100.12]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4)
^DD(177100.12	.01(XREF 2S)
^DIC(4 - [#4]	.01(XREF 2n1.1)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	.01(XREF 2S), .01(XREF 2n1.1)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S)
>> DIG	.01(XREF 2n1.4)
>> DIH	.01(XREF 2n1.4)
>> DINUM	.01+1*
>> DIU	.01(XREF 2S)
DIV	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4)
>> I(0	.01(XREF 2n1.1)
U	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), 5+1
X	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), 1.5+1!, 4+1!, 5+1!, 6+1!, 7+1! , 8+1!, 9+1!, 10+1!, 12+1!, 13+1!, 14+1!, 17+1!, 18+1!, 19+1!, 20+1! , 21+1!, 22+1!
Y	.01(XREF 2S), 18OT+1, 19OT+1, 21OT+1, 22OT+1
Y(0	18OT+1, 19OT+1, 21OT+1, 22OT+1
Y(1	.01(XREF 2S)
Y(101	.01(XREF 2n1.1)

Customize PDF page

Package: Toolkit

Global: ^AWC(177100.12

Information

Description

Directly Accessed By Routines, Total: 9

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 1

Fields, Total: 26

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: